AJUDA PARA IMPRIMIR RELATORIO CRYSTAL

RDPIZA 07/06/2012 13:22:42
#403722
ola amigos preciso de ajuda criei um relatorio com crystal e agora como faço para imprimir com vb6
Private Sub cmdimprimir_Click()
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = [Ô]C:\Documents and Settings\Administrador\Desktop\Estoqueelatorio.rpt[Ô]
End Sub

não acontece nd
ajuda....
ADILSOO 07/06/2012 16:37:57
#403730
Tente assim...
 [txt-color=#0000f0]Dim[/txt-color] crApp [txt-color=#0000f0]As New[/txt-color] CRAXDRT.Application
[txt-color=#0000f0]Dim[/txt-color] CRRep [txt-color=#0000f0]As New[/txt-color] CRAXDRT.Report

[txt-color=#0000f0]Set[/txt-color] CRRep = crApp.OpenReport(App.Path & [Ô]\Caminho\Relatorio.rpt[Ô])

CrViewer.ReportSource = CRRep
CrViewer.ViewReport


veja se funciona... até
ADILSOO 08/06/2012 07:35:44
#403755 Resposta escolhida
Não não, é exatamente assim, funciona perfeito, desse moto ele não imprime só visualiza, até.
Tópico encerrado , respostas não são mais permitidas
Voltar