Basic - Imprimir legal en visual basic 2012 con printform

   
Vista:

Imprimir legal en visual basic 2012 con printform

Publicado por jhon vergara (1 intervención) el 09/07/2015 08:03:12
Hola me gustaría que alguien me ayude urgente por favor, pues estoy desarrollando un programa sencillo en el que debo presentar un formulario e imprimirlo pero en tamaño oficio o legal pero no me lo permite por favor ayudaaaaa.

este es el codigo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub imprimir()
        Try
            Cursor.Current = Cursors.WaitCursor
            With Me.PrintForm1
                .PrintAction = Printing.PrintAction.PrintToPreview
                .PrinterSettings.DefaultPageSettings.Landscape = True
                .PrinterSettings.DefaultPageSettings.Margins.Left = 30
                .PrinterSettings.DefaultPageSettings.Margins.Right = 30
                .PrinterSettings.DefaultPageSettings.Margins.Top = 30
                .PrinterSettings.DefaultPageSettings.Margins.Bottom = 30
 
                .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
 
            End With
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            Cursor.Current = Cursors.Default
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Error al tratar de imprimir")
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        imprimir()
 
    End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder