|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.10.2007 14:42:09 |
René Graf |
|
|
|
26.10.2007 17:34:40 |
Holger |
|
|
|
26.10.2007 18:01:57 |
René Graf |
|
|
 Aw:Aw:Aw:HP Drucker-Fach via VBA (Makro) ansteuren |
26.10.2007 18:27:41 |
Holger |
|
|
Von:
Holger |
Datum:
26.10.2007 18:27:41 |
Views:
1156 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:HP Drucker-Fach via VBA (Makro) ansteuren |
Hallo René
du solltest die Aufzeichnung nicht über Datei-Drucken, sondern über Datei-Seite einrichten machen. Da ich nicht über diesen Drucker verfüge, kann ich das Vorgehen nur mit meinen Druckern machen. Dort funktioniert es.
Wenn es nicht läuft, geht vielleicht noch folgendes: Früher musste man unter DOS bestimmte Zeichenfolgen an die Drucker senden, um die Einstellungen an diesen zu verändern. Wenn diese in der Betriebsanteilung noch vorhanden sind oder beim Hersteller erfragt werden können, kannst du diese mit SendKeys übermitteln.
Hoffentlich klappt es.
Holger
René Graf schrieb am 26.10.2007 18:01:57:
Hallo Holger
Vielen Dank für deine rasche Antwort. Jedoch zeichnet Office die Makros (mit der Option Makros Aufzeichnen) nur bis zu Datei ==> Drucken auf. Alles was man dann einstellt, wird in VBA nicht geschrieben. Verstehst du mein Problem?
Freundliche Grüsse
René Graf // System Engineer
Holger schrieb am 26.10.2007 17:34:40:
Hallo René Graf,
zeichne doch einfach die erforderlichen Tastenfolgen für jedes Fach als neues Makro auf und weise diese über Extras-Anpassen-Befehle (Kategorie Makros)/Symbolleisten einzelen Ikonen/Menuüeinträgen zu.
Viel Erfolg
Holger
René Graf schrieb am 26.10.2007 14:42:09:
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
|
|
26.10.2007 14:42:09 |
René Graf |
|
|
|
26.10.2007 17:34:40 |
Holger |
|
|
|
26.10.2007 18:01:57 |
René Graf |
|
|
Aw:Aw:Aw:HP Drucker-Fach via VBA (Makro) ansteuren |
26.10.2007 18:27:41 |
Holger |
|
|