Duplex Printing

[Siuxia]

Hi, I have setup a report in a DB application to duplex print through VBA, although this application is going to be deployed at another site and I want to make sure of something.
The code I have deployed is as follows

strReport = "rptJobSheet"

DoCmd.OpenReport strReport, acViewPreview, , "JobNumber = " & txtJobNumber
Reports(strReport).Printer.Duplex = acPRDPHorizontal
Reports(strReport).Printer.PaperBin = acPRBNAuto

I have tested this on a Simplex printer I have access to and it seems to just print out on 2 pages which is good, but I want to save hassle later down the line plus for my own knowledge I was wondering if there is a bit of code that will query the duplex functionality of the default printer and give me a true or false as to whether it can duplex or not. Any ideas as have drawn a blank.

[June7]

Try:

Option Compare Database
Option Explicit
'http://msdn.microsoft.com/en-us/library/bb258176.aspx
'Declaration for the DeviceCapabilities function API call.
Private Declare Function DeviceCapabilities Lib "winspool.drv" _
    Alias "DeviceCapabilitiesA" (ByVal lpsDeviceName As String, _
    ByVal lpPort As String, ByVal iIndex As Long, lpOutput As Any, _
    ByVal lpDevMode As Long) As Long
'DeviceCapabilities function constants.
Private Const DC_BINNAMES = 12
Private Const DC_BINS = 6
Private Const DEFAULT_VALUES = 0
Public Const DC_DUPLEX = 7

Public Sub DetectDuplexCapability()
With Application.Printer
If DeviceCapabilities(.DeviceName, .Port, DC_DUPLEX, ByVal vbNullString, 0) <> 0 Then
    Debug.Print "Has duplex"
    'g_blnDuplexAvailable = True
End If
End With
End Sub

I have not verified if this code reports duplex capability because the mechanical duplexing unit is actually in place or simply that the printer is designed to accept one.

I am not sure what the results I get from the DeviceCapabilities function indicate.
3 Konica printers (all have duplexer installed) and gINT PDF Exporter return 1
XPS Document Writer and Adobe PDF return 0
Office Document Image Writer returns -1

Also review
http://toddmcdermid.blogspot.com/200...d-printer.html
http://www.xtremevbtalk.com/showthread.php?t=119582

[Siuxia]

That works perfectly so far, will have to test at the other site and see how it goes.
Thanks very much