Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druck auf Papier und PDF mit und ohne Logo

Druck auf Papier und PDF mit und ohne Logo
29.06.2007 11:35:17
Oliver
Hallo,
ich will eine Excel-Seite ausdrucken
1) Auf Briefbogen im Drucker (also nur den Text der Seite)
2) als PDF-Datei mit Logo (liegt als JPG vor) oben und unten als quasi Briefbogen
Beides einzeln kein Problem. Aber wie drucke ich erst ein PDF um es per Mail zu versenden, und anschließend auf dem Drucker ohne die Grafiken?
Danke
Oliver Rumpf

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

Betreff
Datum
Anwender
Anzeige
AW: Druck auf Papier und PDF mit und ohne Logo
29.06.2007 12:31:00
Matthias
Hallo Oliver,
Setze die Grafiken in das Blatt ein, dann
in ein Modul dieser Code:

Sub Drucken()
Dim s As Shape
'auf Papier
'alle Bilder unsichtbar
For Each s In ActiveSheet.Shapes
s.Visible = False
Next s
Application.ActivePrinter = "HP DeskJet 880C auf Ne02:"
ActiveSheet.PrintOut
'als PDF
'alle Bilder sichtbar
For Each s In ActiveSheet.Shapes
s.Visible = True
Next s
Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
ActiveSheet.PrintOut
End Sub


Die Druckernamen musst du vorher anpassen.
Gruß Matthias

Anzeige
AW: Druck auf Papier und PDF mit und ohne Logo
29.06.2007 14:20:22
Oliver
Hallo Matthias,
super! Vielen Dank
Oliver

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige