Printer.ScaleMode = 6
Printer.PaintPicture LoadPicture("c:\bild.bmp"), 15, 15
Printer.Print
Printer.EndDoc

' zunächst die benötigten API-Deklarationen
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

ShellExecute Me.hWnd, "print", "c:\bild1.bmp", "", "", 1

Mfg MyD