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
TPICO EDITADO




Amigos ta imprimindo certinho, so fala colocar na ORIENTAO PAISAGEM



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

ANDERSON10
SAO PAULO
Cadast. em:Junho/2018


Caras descobri, era so formatar as configurae 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