Setting Default Values for Printer

Hi,

In a VB6 program I have a button which when pressed is supposed to cause the
printer options box to show so that the user can change the printer settings
such as Print Mode, Paper Size etc. When I first wrote the program my
computer had Windows 98 and the coding below worked fine. However, I
recently changed to a new computer with WindowsXP and the coding no longer
works. Instead it presents a box with the message "To change the default
device settings select 'Printer Preferences' rather than 'Properties' when
right clicking on the printer icon in the printer's folder."

Of course, I would like the program to work on both Windows98 and WindowsXP
computers.

Can someone tell me what coding I should be using?

The current coding I use is as follows:

Option Explicit

Private Declare Function PrinterProperties Lib "winspool.drv" _
(ByVal hwnd As Long, ByVal hPrinter As Long) As Long

Private Declare Function OpenPrinter Lib "winspool.drv" _
Alias "OpenPrinterA" (ByVal pPrinterName As String, _
phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long

Private Declare Function ClosePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long

Private Type PRINTER_DEFAULTS
pDatatype As Long ' String
pDevMode As Long
pDesiredAccess As Long
End Type

Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PRINTER_ACCESS_ADMINISTER = &H4
Private Const PRINTER_ACCESS_USE = &H8
Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

The following code is for the button:

Dim retVal As Long, hPrinter As Long
Dim PD As PRINTER_DEFAULTS

PD.pDatatype = 0
' Note that you cannot request more rights than you have as a user
PD.pDesiredAccess = STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_USE
PD.pDevMode = 0
retVal = OpenPrinter(Printer.DeviceName, hPrinter, PD)
If retVal = 0 Then
MsgBox "OpenPrinter Failed!"
Else
retVal = PrinterProperties(Me.hwnd, hPrinter)
retVal = ClosePrinter(hPrinter)
End If

Thank you.

Doug van Vianen


.