|
|
Postada em 10/03/2006 11:22 hs
Como eu faço pra poder enviar um relatório diretamente para a impressora??
estou usando o seguinte comando, mas falta o que envia pra impressora......
.... o bd que estou usando é o mysql......
Dim Report As CRAXDRT.Report
Dim objCrystal As New CRAXDRT.Application
Set Report = objCrystal.OpenReport(NombreInforme)
Report.GroupSelectionFormula = FORMULA 'variavel que contem a formula
With CRViewer
.ReportSource = Report
.ViewReport
End With
Obrigado
|
|
|
|
|
|
|
|
Postada em 10/03/2006 12:10 hs
procura a propriedade "Destination" With CRViewer
.ReportSource = Report
.ViewReport .Destination = crptToPrinter
End With
|
|
|
|
|
|
Postada em 10/03/2006 12:19 hs
No Cryztal 9.2 é : Report.PrintOut True
tenta pra ver se é o mesmo código
dsmn
|
|
|
|
|
|
Postada em 10/03/2006 13:07 hs
Valeu Daniel
é Report.PrintOut True mesmo
Muito obrigado
|
|
|
|
