Postada em 24/07/2018 15:13 hs
Boa tarde amigos do FORUM
Pessoal to imprimindo um relatorio via codigo, ja configurei nome impresso, tamanha papel, tudo ok.
Mas to tendo dificuldade para imprimir a folha como retrato.
Dim ds = New dsRelatorio
Dim Relatorio = New CrystalReport1
Relatorio.SetDataSource(ds)
Dim dialogo = New PrintDialog
Dim PrintDoc As New System.Drawing.Printing.PrintDocument
PrintDoc.PrinterSettings.PrinterName = "EPSON LX-350"
Dim PkSize As New System.Drawing.Printing.PaperSize
For intPaperSize As Integer = 0 To PrintDoc.PrinterSettings.PaperSizes.Count - 1
If PrintDoc.PrinterSettings.PaperSizes.Item(intPaperSize).PaperName = "formularioContinuo" Then
PkSize = PrintDoc.PrinterSettings.PaperSizes.Item(intPaperSize)
Exit For
End If
Next
Relatorio.PrintToPrinter(dialogo.PrinterSettings, dialogo.PrinterSettings.DefaultPageSettings, False)
-----------------------------------------------------------------------------------------até aqui tudo bem, mas o relatorio ta saindo em RETRATO, quero PAISAGEM, na documentação do .NET vi que ao PrintDocumet imprimir ele gera um evento chamado QueryPageSettingsEventArgs, e fiz assim.
Private Sub MyPrintQueryPageSettingsEvent(ByVal sender As Object, ByVal e As QueryPageSettingsEventArgs)
e.PageSettings.Landscape = True
End Sub
mas nada, alguem pode me ajudar?
Valeu rapa...
==================================================================================================
AGORA TO TENTANDO ASSIM AMIGOS, MAS NÃO FUNCIONA.
alguem pode me ajudar????????????????????????????????????????????????????????????????????????
==============================================================================================================
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ds = New dsRelatorio
Dim Relatorio = New CrystalReport1
'Relatorio.SetDataSource(ds) '
Dim Con As New OleDbConnection
Con.ConnectionString = My.Settings.CN1
Con.Open()
Dim SQL As String = " SELECT * FROM TBVendas "
Dim da As New OleDbDataAdapter(SQL, Con)
'Dim ds As New dsRelatorio
da.Fill(ds.Tables("DataTable2"))
Relatorio.SetDataSource(ds)
Dim dialogo = New PrintDialog
Dim PrintDoc As New System.Drawing.Printing.PrintDocument
PrintDoc.PrinterSettings.PrinterName = "EPSON LX-350"
Dim PkSize As New System.Drawing.Printing.PaperSize
For intPaperSize As Integer = 0 To PrintDoc.PrinterSettings.PaperSizes.Count - 1
If PrintDoc.PrinterSettings.PaperSizes.Item(intPaperSize).PaperName = "formularioContinuo" Then
PkSize = PrintDoc.PrinterSettings.PaperSizes.Item(intPaperSize)
Exit For
End If
Next
PrintDoc.DefaultPageSettings.Landscape = True ''''''''''''''''''''''''''''''''''''''''Nova lina
Relatorio.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape = 1 ''''''''''''''''''''''''''''''''''''''Nova linha
Relatorio.PrintToPrinter(dialogo.PrinterSettings, dialogo.PrinterSettings.DefaultPageSettings, False)
End Sub
|
