Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Tabellenblatt an bestimmten Drucker

VBA Tabellenblatt an bestimmten Drucker
Lunatic82
Hallo zusammen,
ich habe mal wieder ein Problem :) hab zwar schon gesucht aber noch nicht wirklich das richtige gefunden...
Ich habe eine Datei mit 3 Tabellenblättern.
In "Tabelle 1" werden Daten eingegeben aus denen dann in "Tabelle 2" und "Tabelle 3" ein Anschreiben bzw. eine Postkarte erstellt wird.
In "Tabelle 1" sollen zwei Schaltflächen sein mit denen man jeweils "Tabelle2" und "Tabelle3" direkt und ohne weitere Abfragen drucken kann.
Wobei "Tabelle2" auf dem Standard-Drucker (Netzwerkdrucker) ausgegeben werden soll (DINA4)
aber "Tabelle3" soll auf einem anderen Netzwerkdrucker (NAME: XYZ123 an ABC321) ausgegeben werden.
Der Netzwerkdrucker XYZ123 druckt nur im Postkartenformat.
Da meine VBA künste noch nicht so prickelnd sind wende ich mich wieder an EUCH :)
Vielen Dank für eure Hilfe!
Gruß Flo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Tabellenblatt an bestimmten Drucker
26.01.2012 19:11:24
Lunatic82
Hallo ich habe jetzt folgendes gefunden:
Public Sub Rückschein_Drucken()
Dim Drucker$, I%
On Error GoTo Resume_Drucker
For I% = 1 To 30
Drucker$ = "\\xyz\CanonP4000 auf Ne" & Format(I%, "00") & ":"
Application.ActivePrinter = Drucker$
Sheets("Rückschein").PrintOut Copies:=1, Collate:=True
Exit For
Resume_Drucker:
Resume NxtDrucker
NxtDrucker:
Next I%
End Sub
Funktioniert super aber wie kann ich hier noch etwas einbauen, damit nach dieser Aktion wieder der standard drucker gewählt wird?
Der Standard drucker ist in diesem Fall der \\abc\HP4250 auf Ne?
Vielen DAnk!
Anzeige
AW: VBA Tabellenblatt an bestimmten Drucker
27.01.2012 12:21:20
Heiko
Moin Flo,
müßte so gehen, ungetestet.
Also alten Drucker merken, deine Schleife abarbeiten, alten Drucker wieder einsetzen.
Ist die Schleife wirklich notwendig, der Drucker sollte doch immer den gleichen Namen haben, oder wechselt der Name von 1 bis 30?!
Public Sub Rückschein_Drucken()
Dim strPostkartenDrucker As String, strStandardDrucker As String
Dim intI As Integer, intErrNumber As Integer
' Alte Einstellung sichern
strStandardDrucker = Application.ActivePrinter
For intI = 1 To 30
strPostkartenDrucker = "\\xyz\CanonP4000 auf Ne" & Format(intI, "00") & ":"
On Error Resume Next
Application.ActivePrinter = strPostkartenDrucker
intErrNumber = Err.Number
On Error GoTo 0
If intErrNumber = 0 Then
Sheets("Rückschein").PrintOut Copies:=1, Collate:=True
' Alte Einstellung wieder herstellen
Application.ActivePrinter = strStandardDrucker
Exit Sub
End If
Next intI
End Sub

Gruß Heiko
Anzeige

76 Forumthreads zu ähnlichen Themen

Pivot VBA Tabellenblatt löschen
murat

Halllo,
ich möchte ein erzeugtes tabellenblatt, das durch pivot doppelklick entstanden ist wieder löschen.
ich habe folgendes Makro
Private Sub CommandButton1_Click() Dim letzteZelle As Long letzteZelle = Worksheets("Tabelle42").Cells.Find(What:="*", _ After:=[A1], SearchDirection:=...
24.01.2010 21:10:25
Thread-ID: 1132506
5 Beiträge
Anzeige
VBA Tabellenblätter umbennenen
Matthias

Hallo Experten,
Gibt es einen VBA Code wo ich Tabellenblätter umbennen kann. Hab etwa 30 Tabellenblätter wo ich immer händisch umbennen muss.
Gruss
Matthias
30.06.2011 08:29:10
Thread-ID: 1220255
10 Beiträge
VBA Tabellenblatt, (Registerblatt) öffnen
Sonja

Hallo
Ich möchte mit einem VBA Code ein Tabellenblatt (Registerblatt) öffnen (Select, activate?)
Das Tabellenblatt welches ich öffnen möchte steht in "Hilfstabelle" Spalte "B4"
Wie kann ich das per VBA Code umsetzen?
Habe schon hier im Forum gestöbert, die Suche brachte nicht da...
15.09.2011 09:48:07
Thread-ID: 1229951
5 Beiträge
Anzeige
VBA Tabellenblätter ein/ausbelnden bei Multiseiten
david.a2k

Hallo,
ich habe ein VBA Formular mit Multiseiten.
Ich hätte gerne, dass sich beim Wecheln der Multiseiten, Tabellenblätter ein bzw. ausblenden.
Wie mache ich das?
Danke und Gruß
17.07.2014 10:43:03
Thread-ID: 1370843
4 Beiträge
VBA Tabellenblatt erkennen und kopieren
Tanja
Hallo Zusammen,
für mich das erste Mal in einem Forum zu schreiben, normal lese ich immer nur und ich tue mein Bestes mein Problem richtig zu erklären ;-)
Ich habe eine Datei, deren erstes Tabellenblatt aus mehreren Hundert Zeilen besteht. Jede Zeile gehört zu einem bestimmten Teilkonzern v...
06.10.2014 18:12:30
Thread-ID: 1385152
6 Beiträge
VBA Tabelle definieren
Michel

Hallo zusammen
Ich hätte gerne im folgendem Excel file einen Button, wenn ich diesen drücke, sollte ich die Möglichkeit haben die Anzahl Mitarbeiter einzugeben.
Anschließend sollte es die Tabelle A2-BH12 (inkl. den Formeln ab Spalte BD),die Grafik und der Range im vorhandenen Makro erwe...
21.10.2014 09:00:01
Thread-ID: 1387690
2 Beiträge
VBA Tabelle
Annika

Hallo,
habe leider keine Ahnung von VBA (weiß nur wie ich einen Code eingebe) und mein Chef möchte ich eine Tabelle mit bestimmten Funktionen, jetzt sitz ich da...
Vielleicht kann mir hier ja jemand helfen.
Kurze Erklärung:
Ich habe eine Tabelle mit den Spalten A-F
1. In Spa...
12.02.2015 16:02:59
Thread-ID: 1409100
6 Beiträge
VBA Tabelle bei speichern
Traise

Wie mache ich, dass ich 13 Tabelle habe.
Und ich möchte, dass igal bei welche Tabelle ich speichere,wird bei starten nur Tabelle2 geöffnet,mit VBA code.
Danke!
29.07.2002 15:31:31
Thread-ID: 142075
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
10
9
4
2
3
5
1
5
1
2
1
1
8
1
3
3
3
2
9
4
1
5
3
2