Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drucken

Drucken
01.04.2008 18:59:42
Andreas
Hallo,
ich habe ein kleines druck Problem mit Exel, ich schreibe meine Rechnungen mit Exel und möchte sie einmal auf Geschäftspapier und einmal auf blanko drucken, habe se mit einem Makro versucht aber es kommen immer zwei RG´s auf blanko oder 2 RG´s auf GP, nie eins aus blanko eins auf GP obwohl ich im Makro es so gemacht habe,
Kann mir einer helfen, Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken
01.04.2008 19:02:00
Renee
Mazwara Andreas,
Was sind den RG und GP?
Wie sieht den dein Makro Code aus ?
GreetZ Renée

AW: Drucken
02.04.2008 11:30:28
Andreas
Hallo, hier mein Makro, RG=Rechnungen, GP=Geschäftspapier,
Danke Andreas Berg

Sub RG_Druck1()
' RG_Druck1 Makro
' Makro am 02.04.2008 von Andreas Berg aufgezeichnet
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


AW: Drucken
05.04.2008 18:51:19
Andreas
Hallo kann mir einer helfen?

AW: Drucken
06.04.2008 12:25:32
Renee
Hi Andreas,
Dein Makro druckt ja ganz einfach 2 mal das gleiche.
Sind denn die Papiere in verschiedenen Schächten des Druckers?
Wenn ja, mach folgendes:
Lege in Windows einen 2ten Drucker an, der als Standardeinstellung 2ter Schacht hat. Er könnte z.B. so
heissen "StandardDrucker GP" und mit diesem Makro könntest du dann drucken:

Sub Druck_beides()
Dim sActPrinter As String
sActPrinter = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'   Drucke 2ter Schacht
Application.ActivePrinter = "StandardDrucker GP"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'   Zurückstellen
Application.ActivePrinter = sActPrinter
End Sub


GreetZ Renée

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige