No me funciona IMPRIMIR COPIAS
Publicado por Javi (90 intervenciones) el 18/12/2007 20:53:44
Tengo este codigo para imprimir con una caja CommondDialog.
PERO.... la opcion de las COPIAS.... ¡¡¡NO ME FUNCIONA¡¡¡
O sea, aunque le diga que imprima 4 copias..... no funciona.... solo imprime 1 sola.
Y por mas que he intentado de todo, no hay forma.
Private Sub BOTONIMPRIMIR_Click()
Dim NUMcopies as Integer
CommonDialog1.ShowPrinter
NUMcopies = CommonDialog1.Copies
For I = 1 To NUMcopies
Printer.PaintPicture Image1.Picture, 5, 5
Next I
Printer.EndDoc
Exit Sub
No entiendo porque el NUMcopies no me va.
¿Alguien me puede ayudar?
Gracias.
PERO.... la opcion de las COPIAS.... ¡¡¡NO ME FUNCIONA¡¡¡
O sea, aunque le diga que imprima 4 copias..... no funciona.... solo imprime 1 sola.
Y por mas que he intentado de todo, no hay forma.
Private Sub BOTONIMPRIMIR_Click()
Dim NUMcopies as Integer
CommonDialog1.ShowPrinter
NUMcopies = CommonDialog1.Copies
For I = 1 To NUMcopies
Printer.PaintPicture Image1.Picture, 5, 5
Next I
Printer.EndDoc
Exit Sub
No entiendo porque el NUMcopies no me va.
¿Alguien me puede ayudar?
Gracias.
Valora esta pregunta
0