Public a, b, cPrivate Sub Command1_Click() a = Text3.Text b = Text1.Text c = Text2.Text Picture1.Print a, b, cPrinter.Print a, b, c Printer.EndDocEnd Sub