Office: Papierformat per vba steuern

Moin,
ich versuche gerade, mit Excel Etiketten zu bedrucken.
Was heißt versuchen, natürlich funktioneirt es, aber:
meine Etiketten haben das Format 31x25mm
In den Druckereigenschaften kann ich das alles manuell einstellen, aber dann behält er es auch bei. Mir wäre es lieber, wenn ich das nicht per Hand steuern muss, sondern dass vba das für mich übernimmt. Dann könnten nämlich auch Leute, die mit Office so gar nichts am Hut haben, mein Druckprogramm nutzen.
Mit Worksheets("Sheet1").PageSetup.PaperSize kann man das Papierformat einstellen, leider aber offenbar nur im Rahmen der aufgelisteten Formate.
In der Liste gibt es das Format 256 - Benutzerdefiniert. Aber bisher ist es mir nicht gelungen dieses anzusprechen. Habt Ihr Tipps für mich?
Gruß
Doming

 

per Hand kannst Du es ja einstellen.
Benutze den Makrorecorder.

 

Moin Doming,

so selten genug es ist, dass HJZ mal einen sinnvollen Vorschlag macht, wird er Dir vermutlich nur bedingt helfen. Die Formatierung Deines Druckformats aufzuzeichnen, wird Dir einen ewig langen Code produzieren von dem Du geschätzt 50 % nicht brauchst. Und spätestens dann, wenn die Prozedur von einem anderen Kollegen auf einem anderen Drucker genutzt werden soll, geht das Ganze schief.

Mein Vorschlag: Nutze tatsächlich auf Deinem Rechner den Makrorecorder, stelle den daraus entstandenen Code hier ein und dann kann man ihn eindampfen bzw. so verallgemeinern, dass er auch beim Kollegen funktioniert.

Grüße

 

Hallo,
nun sitze ich wieder am Rechner mit dem Drucker.
Auch wenn ich mit dem Makrorecorder vertraut bin, so hatte ich meine Zweifel, dass es so funktioniert. Vermutlich habe ich es in der Vergangenheit schonmal probiert:

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
End Sub

Dies ist das aufgezeichnete Makro in Originallänge.
Ich habe den Drucker, die Papiergröße und sogar die Ränder neu eingestellt. Aufgezeichnet hat der Rekorder nichts davon.
Man kann noch etwas eindampfen, aber löschen wäre vermutlich sinnvoller.

Ich habe gerade noch den Tipp gefunden, man möge, nachdem man die Papiergröße händisch eingestellt hat, mittels der Abfrage ActiveSheet.PageSetup.PaperSize das aktuelle Papierformat abfragen. Dieses ergibt bei mir 9, also DIN A4. Es wurde also excelseitig nichts verstellt. Den Rest macht der Druckertreiber.

Im Handbuch des Druckers steht, man könne den Druck mit EPL und ZPL steuern, vielleicht sollte ich mal nachsehen, ob ich da eine Schnittstelle finde.
Gruß
Doming

 

Moin!
Das Einfachste (und gelebte Praxis) ist, den Drucker erneut zu installieren.

Exakt das ist ja auch gewünscht! ;)
Gib dem "neuen" Drucker den Namen Etikettendruck und gut ist es.

Gruß Ralf

 

Ja, fein, gelebte Praxis...
Ich bekomme den Druck hin, habe das ja selber fabriziert.
Aber meinem Kollegen, nur während der Arbeit an einen Computer gesetzt, zu erzählen: „geh in die Druckereinstellungen, wähle den Drucker XY, gehe in die Druckereigenschaften...blah blah” ist keine von mir gelebte Praxis.
Bei mir soll die Tabelle wissen: wenn ich dieses Etikett drucke, nehme ich den Drucker XY und erzähle ihm, er solle gefälligst die Papiermaße YxZ verwenden. Danach soll dann wieder A4 genutzt werden.

Ich überlege aktuell, ein eingestelltes Papierformat zu nutzen und den Druckbereich mit den Seitenrändern einzustellen. Oder ich zieh es mit Word auf, das soll nicht so zickig sein. Mal sehen...
Gruß
Doming

 

Hi,

ich glaube da hast du Ralf falsch verstanden.
Du sollst einmalig einen neuen Drucker installieren (bzw. den alten kopieren - kann es gerade nicht testen, da ich am Mac sitze). Die Kopie nennst du "Etikettendruck" und stellst dort das entsprechende Papier ein. Das musst du einmalig auf jedem Rechner machen, der deine Datei drucken soll. Jetzt kannst du ein VBA-Programm erstellen, das den Drucker auswählt, deine Datei druckt, und den vorigen Drucker wieder einstellt. Das ist "gelebte Praxis".
Übrigens: dieselbe Methode hilft, wenn man gezielt in Farbe oder in SW drucken will.

 

Aber sowas von …
:-)