Printing

Good evening

Please could someone give me a hand.

I am printing a form using Form1.PrintForm. My problem is that I need to force it to print in portrait, as this is not always the default on the users PC. I tried Printer.orientation = 1 but that does not work. I do not want to use a print dialog box.

I also need to know if the default setting was landscape so that I can set it back after I have printed.

Thanks in advance
Robin

Code:

---

Private Sub Command1_Click()
    Dim tmp As String
    tmp = Printer.Orientation
    If tmp <> 1 Then
        Printer.Orientation = 1
        Form1.PrintForm
        Printer.Orientation = tmp
    Else
        Form1.PrintForm
    End If
End Sub

---