Code:

   Dim oPrinter As Variant
   Dim bSuccess As Integer

   Set oPrinter = CreateObject("PrinterControl.CPrinter")

   bSuccess = oPrinter.SetOrientation (2, 2)  ' set landscape the first parameter indicates what kind of print format ( 1 for portrait and 2 for landscape )
                     ' the second parameter indicates which method to use ( 0 for vb printer object, 1 for drivers, 2 for Win Default)

   If bSuccess = True Then
      %REM
      Print what you have to print
      %END REM       
   End If

   oPrinter.ReSetOrientation

   Set oPrinter = Nothing