Printer slecteren

Status
Niet open voor verdere reacties.
K

karel1982

Gebruiker
Lid geworden
21 mrt 2008
Berichten
61
Ik heb pagina's die ik op wit papier moet afdrukken, en andere op blauw papier.
Ik heb een printerdriver die op wit papier is geïnstalleerd, en een tweede die op blauw papier is geïnstalleerd.

Ik probeer onderstaande formule te gebruiken, maar krijg een foutmelding op de lijn van de printer.

Iemand een idee wat er fout is?


Sub Printer_blauw()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "RICOH Aficio MP C4000 (Blauw) on Ne01:"
'Application.ActivePrinter = "RICOH Aficio MP C4000 (Blauw) on Ne05:"
ActiveSheet.PrintOut
Application.ActivePrinter = STDprinter
End Sub



Alvast bedankt
 
Probeer dit:
Code: 
Sub Printer_blauw()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
'Application.ActivePrinter = "RICOH Aficio MP C4000 (Blauw) on Ne01:"
'Application.ActivePrinter = "RICOH Aficio MP C4000 (Blauw) on Ne05:"
ActiveSheet.PrintOut
Application.ActivePrinter = STDprinter
End Sub
 
Ik heb twee logo's staan op mijn werkblad.

Als ik op het ene klik moet hij afdrukken op wit papier
RICOH Aficio MP C4000

Het andere logo op blauw papier.
RICOH Aficio MP C4000 (Blauw)

Met het weglaten van de lijn van de printer drukt hij altijd af op de laatst gebruikte printer.
 
Blijkbaar is de beschrijving van de printer niet juist.
 
Omschrijving is een kopie uit de eigenschappen van de printer.

Ook 'Ne01:' als aangepast naar 'Ne02:', ...
Ook al geprobeerd door 'on' te vervangen door 'op'
 
Wat is het resultaat van deze code ?

Code: 
Sub M_snb()
  For Each pr In CreateObject("Wscript.network").EnumPrinterConnections
    c00 = c00 & vbLf & pr
  Next
  MsgBox c00
End Sub
 
dan zie je dat nergens Ne02 of iets dergelijks staat.
 
Heb ik nu aangepast, maar nog steeds de melding op de lijn van de printer.


Sub Printer_blauw()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "RICOH Aficio MP C4000"
' Application.ActivePrinter = "RICOH Aficio MP C4000 (Blauw)"
ActiveSheet.PrintOut
Application.ActivePrinter = STDprinter
End Sub


Naamloos.jpg
 
Gebruik svp code tags rondom VBA code.

wat levert dit op ?

Code: 
msgbox application.activeprinter

Code: 
Application.ActivePrinter = "RICOH Aficio MP C4000 on 10.0.0.201_4"
 
Laatst bewerkt:
MsgBox gaf Ne00: aan
Dit werkt om op wit papier af te drukken.

Sub Printer_blauw()
Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "RICOH Aficio MP C4000 op Ne00:"
ActiveSheet.PrintOut
Application.ActivePrinter = STDprinter
End Sub


Maar om af te drukken op de printer die ingesteld staat om op blauw papier af te drukken lukt het niet.
Bij snel afdrukken staat de "RICOH Aficio MP C4000"

Zou dus bij het klikken op de knop automatisch de printer "RICOH Aficio MP C4000 (Blauw)" moeten nemen.
Dat doet hij niet. Waarschijnlijk doordat hij niet als standaard staat.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan