Rotate Print 90 degrees within a page

[Catrina]

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

[shree]

This post might help you:
http://codeguru.com/cgi-bin/bbs/wt/s...b&Number=44526

[Catrina]

That is not what I need, I need for the text to be rotated 90 degrees, so that it is up and down as in Portrait print.

The example you pointed me to flips the text but it remains parallel
Catrina

[shree]

Did you try changing

Angle = 1800

to

Angle = 900?

Angle should be set to 10 times the angle that you want to rotate the text.

[John G Duffy]

You really need to look at this
http://www.vb-helper.com/HowTo/rotprint.zip

John G