Faire une impression écran

Question

J'essaie d'obtenir une impression d'écran de mon formulaire en appuyant simplement sur un bouton. 

Voici le code de mon bouton : 
Private Sub BtImprimer_Click() 
On Error GoTo ErrHandler   ' Définit la gestion des erreurs. 
Printer.Orientation = vbPRORLandscape 

PrintForm   ' Imprime la feuille. 
MsgBox cMsgPrint, vbInformation, "Printing..." 
Exit Sub 

ErrHandler: 
MsgErreur (cErrCantPrint & vbCrLf & Err.Description) 
End Sub 

Mon pb est triple : 

1) La page s'imprime bien mais l'image n'est pas centrée (pb de marges à régler). Comment ? 

2) Mon form contient les controle perso qui contiennent un label. Le texte est en Arial (True Type), centré et sur deux lignes (Multiline=True). Pourtant, à l'impression, le texte est décalé comme si le label s'était agrandit (je n'ai pas de code qui modifie la taille de ce label) et la deuxième ligne n'apparait pas. 

3) Lorsque je veux réimprimer une seconde fois, j'obtiens le message d'erreur "Impossible d'imprimer l'image de feuille sur cette imprimante". 
Pourtant, la première impression s'est bien passée ??? 

Merci

cs_PROGRAMMIX · Answer

Une solution qui pourrait peut-être te dépanner...  

Ce serait de faire une copie de ta form dans le presse-papier et ensuite imprimer celui-ci...

J'ai fais une source qui utilise cette technique : "Imprimer ou enregistrer une copie d'écran via la barre des tâches", source n° 5959.

Il te faudrait bien sûr adapter le code afin qu'il corresponde à tes attentes.

samisahliess · Answer

j'ai essayer ton code un message d'erreur me dit ' variable non definit ' stp dit moi qu'elle variable a declarer et comment c tres urgent et je suis debutant

Faire une impression écran

2 réponses

Discussions similaires