CRYSTAL REPORT IMPRIMINDO VIA CODIGO PAISAGEM

 Tópico anterior Próximo tópico Novo tópico

CRYSTAL REPORT IMPRIMINDO VIA CODIGO PAISAGEM

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#483439 - 28/07/2018 10:50:42

ANDERSON10
SAO PAULO
Cadast. em:Junho/2018


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
TÓPICO EDITADO




Amigos ta imprimindo certinho, so fala colocar na ORIENTAÇÃO PAISAGEM



#483446 - 28/07/2018 14:47:43

ANDERSON10
SAO PAULO
Cadast. em:Junho/2018


Caras descobri, era so formatar as configuraçõe de impressora.

Valeu!!!!!!!



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário