Automatisch de juiste printer/la

[xperod]

Goedemorgen,

Ik heb een nieuwe printer gekocht met drie lades. Nu heb ik verschillende documenten die op de verschillende lades moeten. Voor elke la heb de printer op nieuw geinstalleerd. dus la 1 is printer en dan naam. la 2 is printer en dan naam enz. Nu wil ik alleen graag een macro/ vba code die verteld welke printer hij bij dat document moet kiezen. Ik had er een gevonden op internet maar dan word het document 132 keer uitgeprint en meld hij dat hij niet genoeg stack ruimte heeft. heeft iemand hier misschien iets voor?

Groetjes Sem

 

[robdgr]

Ik had er een gevonden op internet maar dan word het document 132 keer uitgeprint en meld hij dat hij niet genoeg stack ruimte heeft. heeft iemand hier misschien iets voor?

Sem,

Plaats de code hier dan kunnen mensen zien wat er fout gaat.

 

[xperod]

Sub PrintToAnotherPrinter()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "Brother hdlnt 5030:" 
    ' change printer
    ActiveSheet.PrintOut 
    ' prints the active sheet
    Application.ActivePrinter = STDprinter 
    ' change back to standard printer
End Sub