If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode
DevString.RGB = strDevModeExtra
LSet DM = DevString
DM.lngFields = DM.lngFields Or
DM.intOrientation 'Initialize fields.
DM.intPaperSize = iSize 'Letter size
DM.intOrientation = iOrientation 'Landscape
LSet DevString = DM 'Update property.
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra
End if
Full code attached.
Thanks in advance!
Dana