Imprimir um Form

[fr]

? Oii

alguém me sabe dizer como se imprime um form em visual basic 2008?

ja procurei só que encontro coisas em sql :s

😛 obrigada

[jpaulino]

? Oii

alguém me sabe dizer como se imprime um form em visual basic 2008?

ja procurei só que encontro coisas em sql :s

😛 obrigada

Podes usar o componente PrintForm

http://msdn.microsoft.com/en-us/library/bb629268.aspx

[ribeiro55]

Para iniciar a impressão:

Private WithEvents PrintDoc As New Printing.PrintDocument

        Dim PD As New PrintDialog
        PD.Document = PrintDoc
        PD.ShowDialog()
        PrintDoc.Print()

Para "desenhar" a folha a imprimir (aqui, de página única):

    Private Sub Pagina(ByVal sender As System.Object, ByVal e As Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage
        Dim g As Graphics = e.Graphics

        PrintDoc.OriginAtMargins = False
        PrintDoc.DocumentName = "A minha página"
        g.PageUnit = GraphicsUnit.Millimeter
        
        'desenhar folha

        e.HasMorePages = False
    End Sub

Se o que procuras não é uma impressão controlada mas sim o equivalente à Form.PrintForm do VB6, o jpaulino já te iluminou.

EDIT: Adicionado Geshi

[vasco16]

se quiseres ter mais trabalho podes usar reports..

[fr]

Encontrei esta página, e gstava que a impressão ficasse assim...

http://www.macoratti.net/08/04/vbn8_imp.htm

Em relaçao áqele site que me passou o jpaulino, foi bastante útil, mas se fizer aqueles passos, consigo imprimir? é que me parece muito simples...

😛

[ribeiro55]

Isso que encontraste é o mesmo que a solução que te dei  😛

[fr]

e faz o mxm?

[ribeiro55]

Faz exactamente a mesma coisa, e pelos vistos funciona da mesma maneira.

[fr]

bem sendo assim, obrigada  😛

vou ver agora onde por o código...

[duduml]

Para iniciar a impressão:

Código: [select]

Private WithEvents PrintDoc As New Printing.PrintDocument

Código: [select]

        Dim PD As New PrintDialog

        PD.Document = PrintDoc

        PD.ShowDialog()

        PrintDoc.Print()

eu utilizei esse código, contudo parece que começa a querer imprimir mas não imprime!

alguém me pode ajudar??

eu tinha simplesmente o

PrintForm1.Print()

mas desse modo corta metade da informação... B)

agradecia ajuda...

CUMPS

[vasco16]

eu utilizei esse código, contudo parece que começa a querer imprimir mas não imprime!

alguém me pode ajudar??

eu tinha simplesmente o

PrintForm1.Print()

mas desse modo corta metade da informação... B)

agradecia ajuda...

CUMPS

eu para imprimir um form uso:

Meto o objecto "printform no meu form;

depois um botão e lá meto este código:

For j As Integer = 1 To 1

                PrintForm1.Print()

  Next

simples e eficaz 🙂

[duduml]

e não corta info?

[duduml]

já experimentei e faz o mesmo que sem o for....lol

ou seja, corta Info!!!

B)

[vasco16]

já experimentei e faz o mesmo que sem o for....lol

ou seja, corta Info!!!

B)

como assim? a mim imprime-me o form todo.. tipo printscreen

[duduml]

pois....então experimenta exticar um pouco mais o form, vais ver como corta info

[vasco16]

pois....então experimenta exticar um pouco mais o form, vais ver como corta info

ah.. assim ja percebi.

essa este código fora do botão.

Private Sub PrintForm1_QueryPageSettings(ByVal sender As Object, ByVal e As System.Drawing.Printing.QueryPageSettingsEventArgs) Handles PrintForm1.QueryPageSettings

        Dim newMargins As System.Drawing.Printing.Margins

        newMargins = New System.Drawing.Printing.Margins(50, 50, 50, 50)

        e.PageSettings.Margins = newMargins

    End Sub

[duduml]

tb  ja o experimentei....vi-o por aí noutro tópico (pois já corri tudo) mas acho que tinha algo diferente...vou experimentar...

CUMPS

[vasco16]

tb  ja o experimentei....vi-o por aí noutro tópico (pois já corri tudo) mas acho que tinha algo diferente...vou experimentar...

CUMPS

depois diz qualquer coisa:) aqui funciona bem..

[duduml]

😁

tinha expirimentado esse código! mas tinha feito mal!!! 

agora já dá!!!  🙂

B)

Muito obrigado!  ?

menos um problema... :smoke:

CUMPS  😉

[vasco16]

😁

tinha expirimentado esse código! mas tinha feito mal!!! 

agora já dá!!!  🙂

B)

Muito obrigado!  ?

menos um problema... :smoke:

CUMPS  😉

acontece 🙂