Bonjour,
J'ai créer un module de code pour l'appeler dans mon application:
1 2 3 4 5 6 7 8 9 10
|
Option Explicit
Public Sub PrintAnywhere(Src As Object, Dest As Object)
Dest.PaintPicture Src.Picture, Dest.Width / 2, Dest.Height / 2
If TypeOf Dest Is Printer Then
Printer.EndDoc
End If
End Sub |
Ensuite, j'appelle la méthode de manière classique pour imprimer la feuille:
Call PrintAnywhere(frmPrint, Printer) 'Print form.
et un message d'erreur 481 se produit : Image incorrecte; le code
Dest.PaintPicture Src.Picture, Dest.Width / 2, Dest.Height / 2
est surligné en jaune et l'imprimante me sort une feuille blanche.
Pourquoi?
Merci de bien vouloir venir à mon secour.
Partager