IMPRIMIR NÀŠÃ‚º VIA EM NOTA FISCAL PELO CRYSTAL

USUARIO.EXCLUIDOS 13/04/2007 17:59:31
#211826 Resposta escolhida

Segue uma idéia:

dim iVia as integer

for iVia = 1 to 4

With rptNotaFiscal
.Reset
.ReportFileName = App.Path & "\NotaFiscal.rpt"
.Destination = crptToPrinter
.Connect = "DSN=" & DSN
.Formulas(0) = "Via='" & str(iVia) & "a. Via '"
.Action = 1
End With

next

USUARIO.EXCLUIDOS 13/04/2007 18:35:06
#211835

olá frau

Esuqeci de mencionar uilizo o Crystal 11, nele não tem opção de mandar direto para impressora, o relatório é visualizado na tela, e pelo botão do CRViewer manda-se para impressora.

o comando action,Reset funciona para a versão 8.5 ou inferior ou superior por RDC, meus relatórios são feitos fora do projeto, utilizo as dlls do crystal para abrir.

vaelu mesmo assim

USUARIO.EXCLUIDOS 14/04/2007 11:21:36
#211882

Realmente, o codigo fonte que postei foi para o Crystal 8.5, desculpe por não poder ajudar...Mas não desanima que alguem deve saber...

DODOMR 14/04/2007 15:06:07
#211905

Cada página é uma via? se for via = numero de pagina

USUARIO.EXCLUIDOS 15/04/2007 15:58:24
#211984

a nota fiscal só tem uma página, é que fica feio criar quatro página, o legal seria se pudesse de uma outra forma tipo na hora que o cara clicasse no botão imprimir fosse impresso as quatro página, sem que ele pudese visualizar as outras três.