Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eine Seite x-mal ausddrucken mit Nummer x im Kopf

Eine Seite x-mal ausddrucken mit Nummer x im Kopf
16.12.2002 08:59:18
Michael
Hallo Zusammen,
ich habe folgendes Problem. Ich habe eine Inventurliste erstellt, die schön formatiert auf eine Seite pasßt. Nun möchte ich diese Seite z.B. 10 mal ausdrucken und in der Kopfzeile (oder in einer beliebigen Zelle) die Seitennummer stehen haben. Ich habe keine Ahnung wie das funktionieren kann, wenn es denn überhaupt geht. Bin für jede Anregung dankbar.

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

Betreff
Datum
Anwender
Anzeige
Re: Eine Seite x-mal ausddrucken mit Nummer x im Kopf
16.12.2002 09:13:18
Hajo_zi
Hallo Michael

eine Seite 20x Drucken, Seite 1 von 20; 2 von 20 usw.
Sub DruckeUndZaehle()
Dim VarPrints As Variant, intI As Integer, intK As Integer
'Inputbox mit Type 0 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then 'User selected cancel
Exit Sub
ElseIf CInt(VarPrints) > 0 Then
intK = CInt(VarPrints)
For intI = 1 To intK Step 1
With ActiveSheet.PageSetup
.CenterFooter = "Seite " & intI & " von " & intK
End With
ActiveSheet.PrintPreview 'zeigt die Vorschau an, ggf. deaktivieren.
'ActiveSheet.PrintOut 'druckt direkt wenn Zeile aktiviert.
Next intI
End If
End Sub

Gruß Hajo

Anzeige
Danke Hajo, hab ich schon immer gesucht. __o.T.
16.12.2002 10:04:19
Panicman

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige