I am trying to print a page with 4 lines landscaped, and one line portrait. I know you can not change the orientation mid page, so is there any property to use to rotate one line. In DOS, you could send commands to the print, but in trying this in VB just prints the literal command. Here is the code I am currently using for the landscaped lines, I need to print the employee number vertically on the left side of the page. Thanks in advance for any help.

Catrina

With MyFont
.Bold = true
.Name = "courier new"
End With
set Printer.Font = MyFont
Printer.FontSize = 12
Printer.Orientation = vbPRORLandscape

If StopPrint$ = "Y" then End
SavEmp& = Val(rsMast!PayEmp)
Printer.CurrentY = 10130
Printer.print " " & RTrim(rsMast!LName); ", "; rsMast!FstName;

Printer.CurrentY = 10450
Printer.print " Emp No " & Right(" " & CStr(Val(rsMast!PayEmp)), 6);

If SavEmp& <> Val(rsMast!PayEmp) then
BEEP
BEEP
Label3(0).Caption = "Emp#" + CStr(SavEmp&) + _
" printed as emp# " + rsMast!PayEmp
Label3(1).Caption = "**PLEASE CHECK time SHEET** -Press any key to continue-"
Do While StopPrint$ = ""
DoEvents
Loop
End If
Printer.CurrentY = 10720
Printer.print " Div " & Right(" " & rsMast!cdiv, 4) & " Dept " & _
Right(" " & rsMast!cdEPT, 4);
Printer.CurrentY = 10990
Printer.print " Week Ending " + Zout$;
Printer.EndDoc