printen van werkblad

[wim1985]

Ik heb een macro die een aantal dingen doet waaronder het printen van dit blad (dat ook "printblad" heet) Nu is het zo dat hij automatisch print op de standaard printer van die computer. Als ik nu op een andere computer werk, print hij het dus naar de verkeerde printer. Kan je in de macro ook aangeven naar welke printer hij moet printen. Hij zou naar een hp mopier 320 op ip 192.168.1.72 moeten printen. Is dit wel mogelijk?

 

[Warme bakkertje]

Beste Wim, dit gebruikte ik vroeger om een keuze van printer te maken. Misschien aan te passen aan jouw noden?

Sub Afdrukken()
    Dim myPrint As Integer
       myPrint = MsgBox("Afdrukken op HP Laserjet 2100 PCL6?", vbYesNo, "Printerkeuze")
        If myPrint = vbYes Then
            ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
            "HP LaserJet 2100 PCL6 op Ne01:", Collate:=True
            Else
            ActiveWindow.SelectedSheets.PrintOut Copies:=2, ActivePrinter:= _
            "HP Photosmart 7700 Series op LPT1:", Collate:=True
        End If
End Sub

Mvg

Rudi