'Hier die benötigten API-Deklarationen
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
 
'Diese nachfolgende Prozedur druckt das Dokument
'über die Standarmässig zugeordnete Anwendung aus
Public Sub MyDocPrint(ByVal hWnd As Long, ByVal Doc As String)
 
  'hWnd: Das Fensterhandle des 
  'aufrufenden Formulars
 
  Call ShellExecute(hWnd, "Print", Doc, "", "", 1)
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell