Seitenumbruch

Forumthread: Seitenumbruch

Seitenumbruch

06.12.2004 16:32:13

Martin

Hi Forum
Ich habe folgendes Prob.
In Der Spalte A Steht immer z.B. H-0 nächste zeile H-1 usw bis irgentwann Z.B. CH-0 und in nächsten Zeile CH-1 steht wie erreiche ich es jetzt das jedes mal wenn sich in der Spalte A Der Buchstabe ändert das Automatisch ein Seitenumbruch zum drucken eingefügt?
Bitt um eure hilfe
Gruß Martin

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Seitenumbruch

Georg

AW: Seitenumbruch

Georg

Hallo,
vielleicht kannst Du das anpassen,


Sub DruckeAlternativ()
If Range("A1") = "1. Bereich" Then
ActiveSheet.PageSetup.PrintArea = "A1:F20"
ElseIf Range("A1") = "2. Bereich" Then
ActiveSheet.PageSetup.PrintArea = "G1:L20"
Else
Exit Sub
End If
ActiveSheet.PrintPreview
End Sub

Statt 1.Bereich und 2. Bereich den jeweiligen Buchstaben.
Grüße
Georg

Forumthread: Seitenumbruch

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread