CRIYSTAL 9.0 COM VB6

USUARIO.EXCLUIDOS 26/05/2007 10:51:59
#218348
Olá Pessoal,
Tenho um aplicação em VB6 com Crystal Report 9.0 e uso o codigo abaixo para mostrar o relatorio na tele, como faço para enviar direto para impressora???

Sub ChamadoTecnico(CAMINHO As String, RELATORIO As String)
Dim Cr As CRAXDRT.Application
Dim Rep As CRAXDRT.Report
Set Cr = New CRAXDDRT.Application
Set Rep = Cr.OpenReport(Trim(CAMINHO & RELATORIO))
         Rep.DiscardSavedData
         Rep.SQLQueryString = Rep.SQLQueryString & " WHERE ORDSERV_NORDEM = '" & FormOrdemServico.TxtNordem.Text & "' ORDER BY ORDSERV_NORDEM;"
        
   Frm_Relat.CRViewer.ReportSource = Rep
   Frm_Relat.CRViewer.ViewReport
   Frm_Relat.CRViewer.Zoom 93
End Sub
ROBIU 26/05/2007 12:00:00
#218355
tira isso Frm_Relat.CRViewer.ViewReport
e coloca isso [txt-color=#ff0000]Frm_Relat.CRViewer.PrintOut[/txt-color]Observe outras opções com o print
Se o fem_relat estiver aparecendo faz um unload Frm_Relat
USUARIO.EXCLUIDOS 26/05/2007 12:24:42
#218364
Ja tentei com o PrintForm, pois não tenho a opção PrintOut
USUARIO.EXCLUIDOS 26/05/2007 12:51:20
#218368
Roberto,

Consegui, graças a vc valeu mais 1 vez!!!
Era só isso

Rep.printOut
ROBIU 04/06/2007 20:08:58
#219728
blz, só falta encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar