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