Création et envoi pdf par macro VBA

Rebonjour à tous,

D'avance merci à tous ceux qui mettent leur expérience au service des autres!
Voici mon petit soucis,
j'ai créé la macro que voici

Sub EnvoiMailMediven()    
ActiveSheet.Unprotect Password:="xxxx"    
ActiveSheet.Range("A1:K17").Select    
ActiveWorkbook.EnvelopeVisible = True    
ReturnReceipt = True    
With ActiveSheet.MailEnvelope    
    .Introduction = "bonjour , ci joint notre commande pour des xxxx"    
    .Item.To = "info@xxxx.be"    
    .Item.Subject = "commande xxxx"    
    .Item.Send    
End With    
Range("A11").Select    
ActiveWorkbook.Save    
ActiveSheet.Protect Password:="xxxx"    
End Sub    

Comme vous le voyez cette macro me permet d'envoyer un tableau excel par mail.
Cela fonctionne très bien mais lorsque la personne qui reçoit ce mail désire l'imprimer il manque une partie du tableau (Fichtre, embêtant ca).
Au début je croyais qu'il s'agisait d'un problème de configuration de l'imprimante, mais j'ai beau changer cette configuration le problème reste le même (il me manque toujour une partie).
Depuis aujourd'hui je me demande si cela ne vient pas de la macro et si il serait possible de modifier celle-ci pour qu'elle prenne en compte des critères de taille?

J'espère que mes explications sont claires et j'ai hâte de lire vops suggestions.
Merci à tous

Philippe