USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  PrintDocument configurando pagina PAISAGEM
andersonvbweb
SÃO PAULO
SP - BRASIL
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
TÓPICO EDITADO
   
andersonvbweb
SÃO PAULO
SP - BRASIL
Postada em 30/07/2018 18:43 hs            
cara era resolvi, era só configurar impressora para PAISAGEM.
kkkkkk
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página