Jayme
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 20/10/2014 08:57 hs
Olá,
Preciso imprimir mais que uma cópia e estou usando isto:
CommonDialog1.ShowPrinter
Printer. Printer.Copies = CommonDialog1.Copies
Só que não funciona, por favor, alguem pode me ajudar.
Obrigado,
Jayme
|
|
|
|
|
|
ED - Claret
|
SÃO JOSE DO RIO PRETO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/12/2014 08:54 hs
Dim BeginPage, EndPage, NumCopies, i
CommonDialog1.CancelError = True
On Error GoTo Erro
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
Me.PrintForm
' ponha o codigo para imprimir aqui
Next i
Exit Sub
Erro:
MsgBox "A impressora não esta pronta !", vbCritical
|
|
|
|
Aplicativo grat
não registrado
|
|
Postada em 28/05/2021 03:08 hs
|
|
|
|
