I am using the printout method of the wang imageEdit control. I set the image property to a tiff file, find out the images size and want to print it on different paper sizes/orientations depending on the image size.
When I use the printout method it totaly ignores any setting that I have modified on my printer.

Help, I need those mods to stick.

Dim Printobj As Printer
Dim MyFN As String
Dim x As Integer

MyFN = Dir(myPath & "*.tif")
x = 0

For x = 0 To Printers.Count - 1
Set Printobj = Printers(x)
If Printobj.DeviceName = "Q_XEROX_332_EP" Then
Exit For
End If
Next x

'must set as default to access properties
Set Printobj = Printer


Me.ImgEdit.Image = myPath & MyFN
With Me.ImgEdit
If .ImageWidth > 3600 Then
Printobj.Orientation = vbPRORLandscape 'vbPRORPortrait

Else
Printobj.Orientation = vbPRORPortrait
End If
End With


Me.ImgEdit.PrintImage , , 2, , "\\USG01\Q_XEROX_332_EP", "Xerox DC 220/230/332/34

This code ignores my Landscape or protrait(and everything elsle i try) commands.