Hallo,
Dit heeft voor mij al zijn diensten bewezen.
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub test()
Const SW_SHOWDEFAULT As Long = 10
Dim sFullPathToFile As String
sFullPathToFile = "C:\Program Files\Adobe\Acrobat 4.0\Help\NLD\Acrobat.pdf"
Call ShellExecute(0, "print", sFullPathToFile, 0&, 0&, SW_SHOWDEFAULT)
MsgBox "Het bestand """ & sFullPathToFile & """ wordt geprint", vbOKOnly, "PRINT"
End Sub
beste groeten,
Erik