Thema Datum  Von Nutzer Rating
Antwort
Rot HP Drucker-Fach via VBA (Makro) ansteuren
26.10.2007 14:42:09 René Graf
NotSolved
26.10.2007 17:34:40 Holger
NotSolved
26.10.2007 18:01:57 René Graf
NotSolved
26.10.2007 18:27:41 Holger
NotSolved

Ansicht des Beitrags:
Von:
René Graf		 Datum:
26.10.2007 14:42:09		 Views:
2030		 Rating:
     
Antwort:
  Ja
Thema:
HP Drucker-Fach via VBA (Makro) ansteuren
Hallo zusammen...

Ich habe folgendes Problem, welches so rasch wie möglich gelöst werden sollte:
Bei einem Kunden haben wir einen alten Lexmark mit einem neuen HP LaserJet 4250dtn ersetzt. Von diesem HP Drucker kann problemlos übers Netzwerk ausgedruckt werden. Auch die manuelle Fach-Auswahl (Word ==> Datei ==> Drucken ==> Eigenschaften ==> Fach-Auswahl) funktioniert. Nun möchte der Kunde aber ein Makro in seiner Word-Symbolleiste haben, welches bei aktivieren (Klick auf das Makro-Symbol) automatisch aus dem dahinter programmiertem Fach druckt. Für jedes Fach soll es also ein eigenes Makro geben, da in jedem Fach anderes Papier zum Einsatz kommt.
Vorhandenes VBA Script, welches beim alten Lexmark Drucker problemlos funktioniert hat:

Sub LexmarkSeite2()
'Ändert das Fach für den Ausdruck
Dim strDrucker$
strDrucker = ActivePrinter
'On Error GoTo Err_Prozedur
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterMiddleBin ' Fach 3
.OtherPagesTray = wdPrinterMiddleBin ' Fach 3
End With
frmDrucken.Show

'stellt die Einstellungen des Druckers zurück
ActivePrinter = strDrucker
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterAutomaticSheetFeed
.OtherPagesTray = wdPrinterAutomaticSheetFeed
End With
Exit_Prozedur:
Exit Sub
Err_Prozedur:
MsgBox "Der Vorgang wurde abgeborchen." & vbLf & "Wenden Sie sich an den Administrator." _
, vbCritical, "Allgemeiner Fehler"
Resume Exit_Prozedur
End Sub

Sub LexmarkBio()
' Lexmark_Druck_Bio Makro
Dim strDrucker$
'On Error GoTo Err_Prozedur
strDrucker = ActivePrinter
'LogoEin 'Führt die Prozedur aus

With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterUpperBin ' Fach 1
.OtherPagesTray = wdPrinterUpperBin ' Fach 1
End With
frmDrucken.Show
'stellt die Einstellungen des Druckers zurück
ActivePrinter = strDrucker
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterAutomaticSheetFeed
.OtherPagesTray = wdPrinterAutomaticSheetFeed
End With
Exit_Prozedur:
Exit Sub
Err_Prozedur:
MsgBox "Der Vorgang wurde abgeborchen." & vbLf & "Wenden Sie sich an den Administrator." _
, vbCritical, "Allgemeiner Fehler"
Resume Exit_Prozedur
End Sub

Der Befehl .FirstPageTray = wdPrinterMiddleBin steuert also das gewünschte Fach an. Bei einem anderen Fach steht zB .FirstPageTray = 257
Wie gestagt funktioniert diese VBA Script problemlos beim Lexmark Drucker, jedoch beim neuen HP Drucker nicht mehr ...Meine Frage: Wie geht also der Befehl in VBA für die Fach-Auswahl bei den HP Drucker? Haben die andere Befehle? Wird VBA von den HP Drucker gar nicht unterstützt? Mein HP Printer druckt immer aus Fach 4, egal was ichim VBA Script hineinschreibe.

Entschuldigt bitte die vielen Fragen und Infos. Bin jedoch kurz vorm Verzweifeln=(. Versuche dieses Problem bereits seit einer woche zu lösen. Habe auch scho mit HP telefoniert. Die meinten nur, sie schicken mir eine CD mit Manuals drauf.

Warte gespannt auf eure Antworten und Danke bereits im Voraus.

Grüessli

René Graf // System Engineer


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot HP Drucker-Fach via VBA (Makro) ansteuren
26.10.2007 14:42:09 René Graf
NotSolved
26.10.2007 17:34:40 Holger
NotSolved
26.10.2007 18:01:57 René Graf
NotSolved
26.10.2007 18:27:41 Holger
NotSolved