Tenho o seguinte problema, tenho um relatório que envio direto para a impressão via crystal reports , porem ele insiste em exibir uma tela de preview, que gostaria de retirar
segue o código, lembrando que não uso Data source para popular o relatório, e tudo via código
Dim report As New ReportDocument
report.PrintOptions.PrinterName = "Argox OS-214 plus series PPLA"
report.Load("../../CrystalReportEtiqueta.rpt", OpenReportMethod.OpenReportByDefault)
report.SetParameterValue(0, FormPrincipal.TextBoxOperador.Text)
report.SetParameterValue(1, FormPrincipal.TextBoxInspetores.Text)
report.SetParameterValue(5, FormPrincipal.TextBoxLoteA.Text)
report.SetParameterValue(3, FormPrincipal.TextBoxClienteA.Text)
report.SetParameterValue(4, FormPrincipal.TextBoxProdutoA.Text)
report.SetParameterValue(2, FormPrincipal.ComboBoxTurno.Text)
report.SetParameterValue(6, FormPrincipal.TextBoxCodAltA.Text)
report.SetParameterValue(7, FormPrincipal.TextBoxQuantEmbA.Text)
report.SetParameterValue(8, Date.Now())
report.PrintToPrinter(1, False, 0, 0)
Pergunta
ELIZANDRO MARCELLINO EMILI
Bom dia a todos
Tenho o seguinte problema, tenho um relatório que envio direto para a impressão via crystal reports , porem ele insiste em exibir uma tela de preview, que gostaria de retirar
segue o código, lembrando que não uso Data source para popular o relatório, e tudo via código
Dim report As New ReportDocument
report.PrintOptions.PrinterName = "Argox OS-214 plus series PPLA"
report.Load("../../CrystalReportEtiqueta.rpt", OpenReportMethod.OpenReportByDefault)
report.SetParameterValue(0, FormPrincipal.TextBoxOperador.Text)
report.SetParameterValue(1, FormPrincipal.TextBoxInspetores.Text)
report.SetParameterValue(5, FormPrincipal.TextBoxLoteA.Text)
report.SetParameterValue(3, FormPrincipal.TextBoxClienteA.Text)
report.SetParameterValue(4, FormPrincipal.TextBoxProdutoA.Text)
report.SetParameterValue(2, FormPrincipal.ComboBoxTurno.Text)
report.SetParameterValue(6, FormPrincipal.TextBoxCodAltA.Text)
report.SetParameterValue(7, FormPrincipal.TextBoxQuantEmbA.Text)
report.SetParameterValue(8, Date.Now())
report.PrintToPrinter(1, False, 0, 0)
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.