CRYSTAL REPORT 9 IMPRIMIR DIRETO IMPRESSORA

X16X 27/08/2009 02:33:12
#321072
Estou fazendo dessa forma para imprimir direto na impressora padrao.
Porem nao esta funcionando.

  
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open [Ô]Call cu_gera_conhecimento()[Ô], conn
Set rs = Nothing

Set MandaDados = New ADODB.Recordset
MandaDados.CursorLocation = adUseClient
MandaDados.Open [Ô]select * from tmp_conhecimento[Ô], conn

Set Crystal = New CRAXDRT.Application

Set Repor = Crystal.OpenReport(App.Path & [Ô]elatorios\RelatorioConhecimento.rpt[Ô])
Repor.Database.SetDataSource MandaDados

Repor.DiscardSavedData
[ô] Repor.PrinterSetup Me.hWnd     <------   Quando deixo aqui descomentado aparece o form para escolher a impressora e imrprimi normal
Repor.PrintOut False
X16X 31/08/2009 16:18:01
#321493
Dá seguinte forma funcionou.


Dim Crystal As New CRAXDRT.Application
Dim Repor1 As CRAXDRT.Report

Dim MandaDados As ADODB.Recordset
Dim rs As ADODB.Recordset

Public Function GeraConhecimento()

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open [Ô]Call cu_gera_conhecimento()[Ô], conn
Set rs = Nothing

Set MandaDados = New ADODB.Recordset
MandaDados.CursorLocation = adUseClient
MandaDados.Open [Ô]select * from tmp_conhecimento[Ô], conn

Set Crystal = New CRAXDRT.Application

Set Repor1 = Crystal.OpenReport(App.Path & [Ô]elatorios\RelatorioConhecimentoVia1.rpt[Ô])
Repor1.Database.SetDataSource MandaDados

Repor1.DiscardSavedData
Repor1.PrintOutEx False
Tópico encerrado , respostas não são mais permitidas
Voltar