Manual de Visual Basic Intermedio
Lección: 12
Capítulo: Ejercicio 12: Impresión
Crea un formulario con seis etiquetas, seis cajas de texto,
dos botones y escribe el siguiente código:
El botón
Limpiar
Private Sub
Command2_Click()
Text1 =
""
Text2 =
""
Text3 =
""
Text4 = ""
Text5 = ""
Text6 = ""
Text1.SetFocus
End Sub
El botón Imprimir
Private Sub
Command1_Click()
Printer.Orientation = 1
Printer.FontSize = 12
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(15);
Label1.Caption; Tab(30);
Text1.Text
Printer.Print
Printer.Print
Printer.Print Tab(15);
Label2.Caption; Tab(30);
Text2.Text
Printer.Print
Printer.Print
Printer.Print Tab(15);
Label3.Caption; Tab(30);
Text3.Text
Printer.Print
Printer.Print
Printer.Print Tab(15);
Label4.Caption; Tab(30);
Text4.Text
Printer.Print
Printer.Print
Printer.Print Tab(15);
Label5.Caption; Tab(30);
Text5.Text
Printer.Print
Printer.Print
Printer.Print Tab(15);
Label6.Caption; Tab(30);
Text6.Text
Printer.EndDoc
End Sub