Dim PrinterCE1 Set PrinterCE1 = CreateObject("PrEngineCE.PrinterCE") '---------------------------------------------- PrinterCE1.SelectPrinter PrinterCE1.DrawText "Hello World" PrinterCE1.EndDoc