printer selecteren

[Maik]

Middels onderstaande macro wordt er een printer geselecteerd, werkt prima bij 1 gebruiker in het netwerk, bij de andere gebruikers werkt het niet, het blijkt namelijk dat de codes "Ne10" en "Ne08" per gebruiker anders zijn.

Nu is hete mogelijk om in een cel op het werkblad de juiste code te zetten.

Weet iemand hoe ik dit in de macro kan vangen?



Sheets("JANUARI").Visible = True
Sheets("JANUARI").Select
Application.ActivePrinter = "\\HDC-PROOF01\XEROX7750-TAB op Ne10:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\HDC-PROOF01\XEROX7750-TAB op Ne10:", Collate:=True
Application.ActivePrinter = "\\HDC-PRINT01\BEDRIJFSBURO1-A4 op Ne08:"
ActiveWindow.SelectedSheets.Visible = False
Sheets("VOORBLAD").Visible = True
Sheets("VOORBLAD").Select
Range("C4").Select
End Sub

Groet,
Maik

 

[Demeter]

Weet niet waar je je printercode wilt plaatsen?
als je deze zet op sheet 'code printer' en in A1 = N08 en A3 = N10 plaatst, dan zou het volgende volgens mij moeten werken:

Sub printer()

codeprinterN08 = Sheets("code printer").Range("A1")
codeprinterN10 = Sheets("code printer").Range("A3")

Sheets("JANUARI").Visible = True
Sheets("JANUARI").Select
Application.ActivePrinter = "\\HDC-PROOF01\XEROX7750-TAB op " & codeprinterN10 & ":"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\HDC-PROOF01\XEROX7750-TAB op " & codeprinterN10  & ":", Collate:=True
Application.ActivePrinter = "\\HDC-PRINT01\BEDRIJFSBURO1-A4 op " & codeprinterN08 & ":"
ActiveWindow.SelectedSheets.Visible = False
Sheets("VOORBLAD").Visible = True
Sheets("VOORBLAD").Select
Range("C4").Select

End Sub

Succes.

Groet,
Ferenc

ps. zou je de volgende keer je code tussen de code tekens(het # teken in je vraag scherm) willen plaatsen, das wat makkelijker leesbaar en werkbaar. Dank je wel.

 

[Maik]

Ferenc,

Wederom bedankt.

Groet,
Maik

 

[dnties]

Ik hoop (ben (nog) geen held in VBA) dat je het zetten van de NeXX: in cellen niet nodig hebt met de volgende code:

Sub Printer()
Dim XeroxPrinter As String
Dim BedrijfsBureauPrinter As String

XeroxPrinter = "\\HDC-PROOF01\XEROX7750-TAB"
BedrijfsBureauPrinter = "\\HDC-PRINT01\BEDRIJFSBURO1-A4"

With CreateObject("WScript.Network").EnumPrinterConnections
For iCount = 0 To .Count - 1 Step 2
If UCase(.Item(iCount + 1)) = XeroxPrinter Then _
XeroxPrinter = XeroxPrinter & " op " & .Item(iCount) & ":"
If UCase(.Item(iCount + 1)) = BedrijfsBureauPrinter Then _
BedrijfsBureauPrinter = BedrijfsBureauPrinter & " op " & .Item(iCount) & ":"
Next
End With

Sheets("JANUARI").Visible = True
Sheets("JANUARI").Select
Application.ActivePrinter = XeroxPrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
XeroxPrinter, Collate:=True
Application.ActivePrinter = BedrijfsBureauPrinter
ActiveWindow.SelectedSheets.Visible = False
Sheets("VOORBLAD").Visible = True
Sheets("VOORBLAD").Select
Range("C4").Select

End Sub

Ben benieuwd of hier nog fouten in zitten en of het doet wat je wilt?

Tijs.

 

[Jan van Asseldonk]

Met onderstaande code kun je je active printer kiezen uit de printers die je geïnstalleerd hebt, lijkt me zeker zo gemakkelijk.

Sub Printerkeuze()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub