Private Sub Form_Load()
' ComboBox: alle Drucker auflisten
    Dim oPrinter As Variant
    For Each oPrinter In Printers
        cboStandarddrucker.AddItem oPrinter.DeviceName
    Next
    ShowDefaultPrinter
End Sub
 
 
Private Sub cmdOK_Click()
' aktuell ausgewählten Drucker systemweit als
' neuen Standard-Drucker festlegen
    If fSet_DefaultPrinter(cboStandarddrucker.Text) Then
        ShowDefaultPrinter
        MsgBox cboStandarddrucker.Text & " ist der neue Standard-Drucker!"
 
        Open "C:\printer.ini" For Output As #3  ' Datei öffnen.
        Standarddrucker = (cboStandarddrucker.Text) 'hier wird der 
        ' Standarddrucker gesetzt
        Print #3, Standarddrucker
        Close #3
        Unload Me
    Else
        MsgBox "Konnte " & cboStandarddrucker.Text & " nicht als " & _
               "neuen Standard-Drucker festlegen."
    End If
 
End Sub
 
Private Sub cmdDrucken_Click()
' Webseite drucken
 
    SetPrinter Standarddrucker
    SetDefaultPrinter Standarddrucker
 
    DoEvents
    WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
 
End Sub
 
Private Sub cmdSpeichern_Click()
 
    'Drucker auf novaPro Server umschalten um pdf zu erzeugen
 
    SetDefaultPrinter "novaPDF Pro Server v6"
    SetPrinter "novaPDF Pro Server v6"
 
    DoEvents
 
    WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
 
End Sub