|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 HP Drucker-Fach via VBA (Makro) ansteuren |
26.10.2007 14:42:09 |
René Graf |
|
|
|
26.10.2007 17:34:40 |
Holger |
|
|
|
26.10.2007 18:01:57 |
René Graf |
|
|
|
26.10.2007 18:27:41 |
Holger |
|
|
Von:
René Graf |
Datum:
26.10.2007 14:42:09 |
Views:
1898 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
HP Drucker-Fach via VBA (Makro) ansteuren |
26.10.2007 14:42:09 |
René Graf |
|
|
|
26.10.2007 17:34:40 |
Holger |
|
|
|
26.10.2007 18:01:57 |
René Graf |
|
|
|
26.10.2007 18:27:41 |
Holger |
|
|