Ga naar inhoud

Diverse printers


JTvD
 Delen

Aanbevolen berichten


Zo?

Sub HAS()
vasteprinter = Application.ActivePrinter
Application.ActivePrinter = "\\nlzwprintsrv01\PR12644"
    Sheets(Array("HAS", "HAS2")).PrintPreview
Application.ActivePrinter = vasteprinter
End Sub

en

Sub ZWO()
vasteprinter = Application.ActivePrinter
Application.ActivePrinter = "\\NLzwprintsrv01\PR13631"
    Sheets(Array("ZWO", "ZWO2")).PrintPreview
Application.ActivePrinter = vasteprinter
End Sub

 

vasteprinter = Application.ActivePrinter stelt de standaard printer vast

.Application.ActivePrinter = vasteprinter de standaard printer wordt terug ingesteld.

Link naar reactie
Delen op andere sites

Net niet..

 

Ik krijg een foutmelding op Application.ActivePrinter = "\\nlzwprintsrv01\PR12644".

Fout 1004 tijdens uitvoering:

Methode ActivePrinter van Object is mislukt

 

en als de printer in VBA weggeschreven word dan kan verder niemand makkelijk even de printer aanpassen als deze op een andere server komt.

Daar was de validatie voor

 

Link naar reactie
Delen op andere sites


Was het uit het oog verloren.

Wat doet dit?

Sub HAS()
SP = Application.ActivePrinter
 LP = "\\nlzwprintsrv01\PR12644"
    Sheets(Array("HAS", "HAS2")).PrintOut ActivePrinter:=LP, Copies:=1, Collate:=True, IgnorePrintAreas:=False
Application.ActivePrinter = SP
End Sub
Sub ZWO()
SP = Application.ActivePrinter
LP = "\\NLzwprintsrv01\PR13631"
    Sheets(Array("ZWO", "ZWO2")).PrintOut ActivePrinter:=LP, Copies:=1, Collate:=True, IgnorePrintAreas:=False
Application.ActivePrinter = SP
End Sub

Volgens mij moet je uw printergegevens vervolledigen, iets in de zin van "\\nlzwprintsrv01\PR12644 op Ne00:"

op Ne is voor iedere printer verschillend.

Dit kan je uitvinden, printer kiezen in afdrukvoorbeeld en dan volgende code:

 

Sub test()
MsgBox Application.ActivePrinter
End Sub

 

Hou mij op de hoogte.

Ik heb nog een paar ideetjes.

Link naar reactie
Delen op andere sites


 

De test gaf aan dat de printers zitten onder \\NLzwprintsrv01\PR13631 op NeO3: en \\nlzwprintsrv01\PR12644 op NeO4: 

Heb het programma apart onder een knop met de juiste printergegevens maar het komt uit de zelfde printer de PR13631 mijn standaard

 

Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...