AYUDA POR FAVOR
Publicado por Fernando (17 intervenciones) el 09/07/2002 03:54:54
Copie esta rutina de algun lugar se supone que utiliza el control commondialog para tonar los parametros de la ventana de control de impresion especificamente el numeros de paginas.
Sin embargo por mas que selecciono otros valores diferentes a uno siempre toma UNO como valor, tienes algun error.... ? necesito esta rutina para indicar cuantas copias del reporte quiero.
Dim pagini, pagfin, copias, i
'establecer error
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.ShowPrinter
pagini = CommonDialog1.FromPage
pagfin = CommonDialog1.ToPage
copias = CommonDialog1.Copies
For i = 1 To copias
Call Imprime
Next
Exit Sub
Errhandler:
Exit Sub
Sin embargo por mas que selecciono otros valores diferentes a uno siempre toma UNO como valor, tienes algun error.... ? necesito esta rutina para indicar cuantas copias del reporte quiero.
Dim pagini, pagfin, copias, i
'establecer error
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.ShowPrinter
pagini = CommonDialog1.FromPage
pagfin = CommonDialog1.ToPage
copias = CommonDialog1.Copies
For i = 1 To copias
Call Imprime
Next
Exit Sub
Errhandler:
Exit Sub
Valora esta pregunta
0