Drucker mit VBA ändern

Sub DruckeBereich() Dim strDruckerAktiv As String Application.ActivePrinter = "TEC B-SA4T (203 dpi) auf Ne02:" 'ActivePrinter: Ausdruck = "TEC B-SA4T (203 dpi) auf Ne02:" strDruckerAktiv = Application.ActivePrinter Dim i, max As Integer, vz, bz max = Sheets("Eingabe").Range("C6").Value If max 40 Then max = 40 For i = 1 To max vz = i * 2 - 1: bz = i * 2 Worksheets("Palettenaufkleber").Range("A" & vz & ":D" & bz).PrintOut Copies:=1 'PrintOutPreview Next i max = Sheets("Eingabe").Range("C8").Value If max 500 Then max = 500 For i = 1 To max vz = i * 2 - 1: bz = i * 2 Worksheets("PE-Aufkleber Einzel").Range("A" & vz & ":D" & bz).PrintOut Copies:=1 'PrintPreview Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Faxen() savPrinter = ActivePrinter ' aktuellen Drucker auslesen ActivePrinter = "WinFax Pro 9.0" ' anderen Drucker einstellen ActiveDocument.PrintOut Background:=False ' actives Dokument drucken in Word ActivePrinter = savPrinter ' Drucker wieder zurückstellen End Sub

Sub DruckeBereich() Dim strDruckerAktiv$, i%, max%, vz, bz, sStdDrucker$ '*Standarddrucker sichern sStdDrucker = Application.ActivePrinter Application.ActivePrinter = "TEC B-SA4T (203 dpi) auf Ne02:" 'ActivePrinter: Ausdruck = "TEC B-SA4T (203 dpi) auf Ne02:" strDruckerAktiv = Application.ActivePrinter max = Sheets("Eingabe").Range("C6").Value If max 40 Then max = 40 For i = 1 To max vz = i * 2 - 1: bz = i * 2 Worksheets("Palettenaufkleber").Range("A" & vz & ":D" & bz).PrintOut 'PrintPreview Next i max = Sheets("Eingabe").Range("C8").Value If max 500 Then max = 500 For i = 1 To max vz = i * 2 - 1: bz = i * 2 Worksheets("PE-Aufkleber Einzel").Range("A" & vz & ":D" & bz).PrintOut 'PrintPreview Next i '*Standarddrucker wieder herstellen Application.ActivePrinter = sStdDrucker End Sub

Hallo Andreas,
hast du dir meinen Code wirklich genau angesehen? Deine Dimensionierungen sind immer noch vorhanden, aber da wo sie hingehören, nämlich ganz oben! Du solltest auch noch vz, bz, in vz% und bz% ändern! Wenn für Variablen keine Dimensionierung angegeben wird (hatte ich noch für vz und bz vergessen!), dann werden Variablen als "Variant" dimensioniert. Hier eine kleine "Variablen-Info":
Anstatt "as ..." etc., kann man die folgenden Kürzel verwenden:
$ für "as String"
@ für "as Currency" mit 4 Nachkommastellen, ist genauer als "Double"!
# für "as Double" mit Fließkommastellen.
% für "as Integer" max "32.767", ohne Nachkommastellen
& für "as Long" größer als integer, ohne Nachkommastellen
"as Variant" kann man sich ganz sparen, denn ohne weitere Angabe wird jede Variable als "Variant" behandelt!
Ich stelle dabei dem Variablen-Namen den 1. Buchstaben der Variablen-Bezeichnung voran. Damit weiß ich immer, welche Art von Variable ich da vor mir habe. Außerdem versuche ich kryptische, abgekürzte Variablennamen, so gut es geht, zu vermeiden, denn so wird der Code sehr viel lesbarer! Auch für mich selbst!
Denn nach Monaten oder sogar Jahren, kann ich selbst meinen Code sonst nur sehr viel schwerer lesen.
Speicherverbrauch der einzelnen Variablentypen:
Integer 2 Byte Ganzzahlen -32.768 bis 32.767
Long 4 Byte Ganzzahlen -2.147.483.648 bis 2.147.483.647
LongLong 8 Byte Ganzzahlen ca. ± 9 Trillionen
Currency 8 Byte skalierte Ganzzahlen ca. ± 9 Billionen, 4 Nachkommastellen
Double 8 Byte Gleitkommazahl
Date 8 Byte Datum und Zeit
Object 4 Byte abhängig vom Objekt
String Anz. Zeichen * 2 Texte
Currency ist intern eine Ganzzahl, die durch 10.000 geteilt wird und 4 feste Nachkommastellen hat. Im Gegensatz zu normalen Fließkommazahlen ist das ein sehr genaues Rechenverfahren und daher besonders im Zusammenhang mit Geldbeträgen zu empfehlen.
Servus

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread