drucken in excel

hans jupp · 27.08.2004

hallo,

ich suche nach einer möglichkeit, um in excel xp in einer datei von sämtlichen tabellenblättern (mit ausnahme des ersten) jeweils nur die erst seite auszudrucken.
da es sich um etwa 20 blätter handelt ist es sehr umständlich, jedes einzelne anzuwählen und dann auszudrucken.

gibt es eine möglichkeit, dies zu automatisieren?
eventuell mit einem makro?

vielen dank schon mal für eure hilfe

Matjes · 27.08.2004

Hallo kath.hundefriseursalon,

mit einem Makro kann das so aussehen:

Code:

Sub AlleTabs1steSeiteDrucken()
'druckt die erste Seite einer jeden Tabelle der aktiven Mappe.
'Die erste Tabelle wird nicht ausgedruckt
  Dim ws As Worksheet
  
  For Each ws In ActiveWorkbook.Worksheets
      If ws.Name &lt;> ActiveWorkbook.Worksheets(1).Name Then
        ws.PrintOut From:=1, To:=1
      End If
  Next
End Sub

Gruß Matjes

hans jupp · 27.08.2004

hallo matjes,

das funktioniert einwandfrei !!!!!

vielen dank nochmal für deine hilfe ;D

drucken in excel

hans jupp

Matjes

hans jupp

drucken in excel

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums