Visual Basic - No me funciona IMPRIMIR COPIAS

Life is soft - evento anual de software empresarial
 
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder