Derek,

I've used the following code to set printer connectivity. You need to set a
reference to the Windows Script Host Object Model.

'Windows Script Hosting Reference to determine printer connections
Application.StatusBar = "Setting references to Windows Scripting Host"
Dim objScriptControl As iwshnetwork_class
Dim colPrinters As IWshCollection_Class
Set objScriptControl = New iwshnetwork_class
Set colPrinters = objScriptControl.EnumPrinterConnections

Application.StatusBar = "Looking for a Postscript printer"
blnPrinterFound = False
With colPrinters
For intIndex = 0 To .Count
strPrinterName = .Item(intIndex)
If InStr(1, strPrinterName, strPrinterType, vbTextCompare) Or _
InStr(1, strPrinterName, strPrinterType2, vbTextCompare) Then

blnPrinterFound = True

Exit For
End If
strPrinterName = vbNullString
Next intIndex
End With
If blnPrinterFound = False Then
MsgBox "No valid Postscript printer", vbCritical, "Printer"
Exit Sub
End If

The bulk of this code will have to be changed for your purposes, but,
hopefully this is helpful.
--
http://HelpExcel.com
1-888-INGENIO
1-888-464-3646
x0197758


"Derek from Belgium" wrote:

This is probably very easy: how can I call Print Form in a VBA procedure ?
I want the user to select his printer.

Thanks !!
Derek