Microsoft Excel

Herbers Excel/VBA-Archiv

Druck auf Papier und PDF mit und ohne Logo

Betrifft: Druck auf Papier und PDF mit und ohne Logo von: Oliver Rumpf
Geschrieben am: 29.06.2007 11:35:17

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

  

Betrifft: AW: Druck auf Papier und PDF mit und ohne Logo von: Matthias G
Geschrieben am: 29.06.2007 12:31:28

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


  

Betrifft: AW: Druck auf Papier und PDF mit und ohne Logo von: Oliver Rumpf
Geschrieben am: 29.06.2007 14:20:22

Hallo Matthias,

super! Vielen Dank


Oliver


 

Beiträge aus den Excel-Beispielen zum Thema "Druck auf Papier und PDF mit und ohne Logo"