Option Explicit
 
Dim Druckername As String
 
'Konstante, benötigt von der API-Funktion
Private Const PRINTACTION_TESTPAGE = 4
'Einbinden der API-Funktion
Private Declare Function apiSHInvokePrinterCommand _
  Lib "shell32.dll" Alias "SHInvokePrinterCommandA" _
  (ByVal hwnd As Long, ByVal uAction As Long, _
  ByVal lpBuf1 As String, ByVal lpBuf2 As String, _
  ByVal fModal As Long) As Long
 
Public Sub PrintTestPage(WindowHandle As Long, PrinterName As String)
  'API-Funktion aufrufen
  apiSHInvokePrinterCommand WindowHandle, PRINTACTION_TESTPAGE, PrinterName, _
    vbNullString, 0&
End Sub
 
Private Sub Form_Load()
        'Drucker zuweisen
        Druckername = Printer.DeviceName
End Sub
 
Private Sub Command1_Click()
 
    PrintTestPage Me.hwnd, Druckername
 
End Sub