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.
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
0