Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle Seiten farbig drucken

Forumthread: alle Seiten farbig drucken

alle Seiten farbig drucken
Ulrike
Die von der Firma vorgegebene Standardeinstellung beim Druck eines Dokuments als PDF ist leider Schwarzweiß. Das will ich ändern, und zwar für alle sichtbaren Blätter einer Arbeitsmappe. Wenn ich mehrere Blätter markiere und dann Farbdruck einstelle, bezieht sich das dann leider immer nur auf das erste markierte Blatt *grmpf*
Ich bin jetzt gerade daran gescheitert, mir ein Makro zu stricken, das für alle sichtbaren Blätter einer Arbeitsmappe die Einstellung auf Farbdruck ändert.
Also ein Blatt markieren - Farbdruck einstellen - nächstes Blatt markieren - Farbdruck einstellen usw...
Kann mir einer dabei helfen?
danke
Ulrike
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: alle Seiten farbig drucken
04.10.2010 12:45:16
JoWE
Hallo Ulrike,
ich habe Excel2003, aber vllt. geht'S rtrotzdem so: 
Sub farbdruck_alle_Blätter()
Dim bl As Worksheet
For Each bl In ThisWorkbook.Sheets
bl.PageSetup.BlackAndWhite = True
Next
End Sub
Gruß
Jochen
AW: uups, natürlich 'BlackAndWhite = False'
04.10.2010 12:46:16
JoWE
AW: alle Seiten farbig drucken
04.10.2010 13:33:43
Ulrike
funktioniert leider nur fürs erste Tabellenblatt, bei allen weiteren nicht mehr *kopfkratz*
Trotzdem danke !
Ulrike
Anzeige
AW: alle Seiten farbig drucken
04.10.2010 14:48:52
welga
Hallo,
ich würde es eventuell mal so versuchen (ist aber ungetestet)
Sub farbdruck_alle_Blätter()
Dim bl As Worksheet
For bl=1 to ThisWorkbook.Sheets.count
if bl.visible =true then  bl.PageSetup.BlackAndWhite = false
Next bl
End Sub

AW: alle Seiten farbig drucken
04.10.2010 14:59:22
Martin
Hallo,
ich glaube über "PageSetup.BlackAndWhite" wird nicht der Druckertreiber angesprochen, sondern der Druckauftrag von Excel bereits in Schwarz-Weiß an den Druckertreiber übermittelt. Deshalb wird die Seite weiterhin nicht farbig gedruckt, wenn Excel die Druckdaten in Farbe übermittelt, aber der Drucktertreiber alles nach Schwarz-Weiß umrechnet.
Nach meinem Wissen lassen sich nur der Acrobat Reader und der PDF Creator per Makro gut konfigurieren, wobei ich den PDF-Creator als Freeware bevorzuge und der Makro-Code hier auch deutlich einfacher ist.
Eine Anleitung zum Ansteuern des PDF-Creators findest du hier: http://excelguru.ca/node/21
Suche mal nach "COM-Schnittstellen" bzw. "clsPDFCreatorOptions", damit können zusätzliche Einstellungen übermittelt werden. Ich verwende zum Beispiel: 

With pdfjob
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("StandardAuthor") = "x"
.cOption("StandardSubject") = "x"
.cOption("StandardKeywords") = "x"
.cOption("StandardCreationdate") = "x"
.cOption("StandardModifydate") = "x"
.cOption("PDFOptimize") = "1" 'Schnelle Webanzeige
.cOption("StandardTitle") = "x"
.cOption("AutosaveDirectory") = "x"
.cOption("AutosaveFilename") = "x"
.cOption("AutosaveFormat") = 0    ' 0 = PDF
.cClearCache
End With
...wobei ich für "x" natürlich entsprechende Werte eingesetzt habe. Für die Farbinformation gibt es garantiert auch einen Eintrag.
Viele Grüße
Martin
Anzeige

Forumthreads zu verwandten Themen

Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Anzeige
mehrere Tabellenblätter im Querformat ausdrucken
WernerP

Ich möchte mehrere Tabellenblätter in einem Rutsch im Querformat ausdrucken.
Markiere ich alle Tabellenblätter und wähle Drucken mit Vorschau, so muß ich für jedes einzelne
Blatt das Querformat einstellen.
Gibt es einen Weg für alle Blätter gleichzeitig Querformat einzustellen? G...
01.12.2009 13:02:29
Thread-ID: 1121202
2 Beiträge
Anzeige
Jede Zeile auf einer Seite ausdrucken
Stef@n

Hallo Excel-Freunde
ich verzweifel weil ich nicht auf die Lösung komme.
Ich habe eine Datei in der 42 Zeilen enthalten sind
Spalte A Name - Spalte B Datum und eine Grafik
Die beiden Spalten sind so breit, daß der Name linksbündig, das Datum rechtsbündig
auf einer DinA4 Seite...
28.06.2012 21:48:44
Thread-ID: 1269376
4 Beiträge
gefilterte Pivottabellen auf einer Seite drucken
Hendrik

Hallo
ist es möglich, gefilterte Pivottabellen aus mehreren Tabellenblättern auf einer Seite anzuordnen, um die zu drucken?
Auf einer Seite ließen sich die verschiedenen Pivottabellen schwerlich direkt einbauen, da entweder riesige Zwischenräume entstehen würden (bei Filtern) oder aber...
02.09.2013 14:36:02
Thread-ID: 1329201
2 Beiträge
Mehrere Tabellen gleichzeitig drucken
Dominik

Hallo,
Ich würde gerne mehrere Speziel ausgewählte Tabellen in einer Excel Datei gleichzeitig drucken.
Ich hatte mir das in etwa so vorgestellt:
In Tabelle 1 gibt es eine Liste aller Tabellen. Wenn dann eon Hacken ( oder Zahl ) in der Spalte daneben eingetragen wird und ich auf druc...
02.09.2013 16:36:18
Thread-ID: 1329248
4 Beiträge
Mit VBA mehrere Tabellenblätter drucken
Dominic

Hallo,
aktuell nutze ich folgendes Makro um einen definierten Zellbereich im Tabellenblatt 1 zu drucken.
With .PageSetup
.Zoom = False
.PrintArea = "$A$1:$H$84"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall...
29.01.2014 12:11:14
Thread-ID: 1347192
5 Beiträge
2 Druckbereiche auf einer Seite drucken
Armin

Hallo zusammen,
ich möchte gerne die Druckbereiche B1:F16 und B37:F46
auf einer Seite ausdrucken.
Bisher macht Excel immer 2 Seiten daraus.
Kennt jemand eine Lösung dafür?
Besten Dank für eure Hilfe
Armin
15.05.2014 12:54:03
Thread-ID: 1361745
4 Beiträge
Anzeige
mehrere Tabellenblätter drucken
Daniel Köchler

Hallo,wie kann man mit einem Befehl mehrere, bestimmte Blätter ausdrucken?Daniel
23.07.2002 08:29:06
Thread-ID: 139256
4 Beiträge
Anzeige
Mehrere Tabellen Drucken
Heinz

Hallo Forumsteilnehmer,mit eurer Hilfe habe ich folgendes Makro bekommen:Sub Tab_Drucken()
Dim Tabellenname As String
Tabellenname = ActiveWorkbook.Worksheets("Daten").Cells(1, 1)
ActiveWorkbook.Worksheets(Tabellenname).SelectActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=Tru...
24.07.2002 23:02:12
Thread-ID: 140237
4 Beiträge
alle Arbeitsmappen formatieren und drucken?
Steve

Hallo zusammen,ich möchte gerne das folgende Makro von Gerd erweitern (https://www.herber.de/forum/messages/140516.html). Es soll alle Tabellenblätter formatieren (Spaltenbreite optimal, Querformat) und möglichst die Tabellenbezeichnung in der linken Kopfzeile wiedergeben. Dann sollen alle Tabe...
26.07.2002 21:20:24
Thread-ID: 141339
3 Beiträge
Mehrere Tabellen drucken
Januel

Hallo
Ich habe in einer List box alle meine Tabellen erstellt. Nun möchte ich mehrere selektieren und _
ausdrucken. Mein Code den ich nun habe ist. Private Sub CommandButton1_Click() Dim StrSel, ArrDruck() As String, i As Integer '### Funktioniert### With ListBox2 For i = .ListCount...
25.11.2016 10:17:37
Thread-ID: 1527074
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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