nico88450
Messages postés3Date d'inscriptionlundi 24 mai 2004StatutMembreDernière intervention11 juin 2004
-
11 juin 2004 à 15:02
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
11 juin 2004 à 20:27
Salut à tous !!
J'ai un probleme avec le code ci-dessous. IL débogue normalement. Pb : l'imprimante avale 2 feuilles mais n'imprime rien.
Private Sub impression()
Printer.ScaleHeight = 210
Printer.ScaleWidth = 297
Printer.PaperSize = vbPRPSA4 'format A4
Printer.PrintQuality = -3
Printer.ScaleMode = 7 'centimetre
Printer.ScaleTop = 2
Printer.ScaleHeight = 20
Printer.CurrentX = xprichiche
Printer.CurrentY = yprichiche
Printer.Print prix
Printer.EndDoc
End Sub