Formatierung; Fixierung; Wiederholungszeilen

Forumthread: Formatierung; Fixierung; Wiederholungszeilen

10.03.2007 22:30:19

Walter

Hallo,
ich habe nachfolgendes Makro in Verwendung, in dem ich die Formatierung, Kopf- und Fußzeilen automatisiert habe. Nun suche ich die Erweiterungsmöglichkeit insofern, daß automatisch die Fixierung (jede Datei hat eine andere) und die Widerholungszeilen (ebenfalls in jeder Datei anders) per Abfrage im Makro einbauen kann.
D.h. Makro soll laufen, dann die Abfrage nach Fixierung und Wiederholungszeilen, dann die Eingabe des Users, dann zu Ende laufen.
Weiß jemand Rat ?
mit Dank
Walter
Nachfolgend das Makro:

Sub A4_hoch()
' A4_hoch Makro
' Makro am 09.02.04 von Hz (T.: 2831) aufgezeichnet
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = ""
Cells.Select
Cells.EntireColumn.AutoFit
' Selection.NumberFormat = _
'  "_-* #,##0.00 _D_M_-;-* #,##0.00 _D_M_-;_-* ""-""? _D_M_-;_-@_-"
.PrintTitleRows = "$1:$1"
ActiveSheet.PageSetup.RightHeader = "&f; &A; " & BenutzerName & "; " & Format(Date, _
"dd.mm.yyyy")
.RightFooter = "&8Seite - &P / &N -"
.LeftMargin = Application.InchesToPoints(0.59)
.RightMargin = Application.InchesToPoints(0.39)
.TopMargin = Application.InchesToPoints(0.59)
.BottomMargin = Application.InchesToPoints(0.59)
.HeaderMargin = Application.InchesToPoints(0.31)
.FooterMargin = Application.InchesToPoints(0.31)
.FirstPageNumber = xlAutomatic
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 200
End With
With ActiveSheet.PageSetup
'Fixierung setzen
'   ActiveWindow.FreezePanes = False
'  Range("A2").Select
'  ActiveWindow.FreezePanes = True
End With
ActiveWindow.SelectedSheets.PrintPreview
'Ende:
Application.Cursor = xlDefault
Application.StatusBar = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatierung; Fixierung; Wiederholungszeilen

10.03.2007 23:22:00

Herby

Hallo Walter,
wenn Du unter Fixierung das waagrechte bzw. senkrechte Zentrieren meinst, dann
dürfte es so funktionieren, anderfalls weiss ich nicht was Du unter Fixierung verstehst ?
Option Explicit

Sub A4_hoch()
' A4_hoch Makro
' Makro am 09.02.04 von Hz (T.: 2831) aufgezeichnet
Dim Benutzername As String
Dim fixi As Boolean
Dim TZ As Integer
Application.ScreenUpdating = False
Benutzername = Application.UserName
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = ""
Cells.Select
Cells.EntireColumn.AutoFit
' Selection.NumberFormat = _
'  "_-* #,##0.00 _D_M_-;-* #,##0.00 _D_M_-;_-* ""-""? _D_M_-;_-@_-"
.PrintTitleRows = "$1:$1"
ActiveSheet.PageSetup.RightHeader = "&f; &A; " & Benutzername & "; " & Format(Date, _
"dd.mm.yyyy")
.RightFooter = "&8Seite - &P / &N -"
.LeftMargin = Application.InchesToPoints(0.59)
.RightMargin = Application.InchesToPoints(0.39)
.TopMargin = Application.InchesToPoints(0.59)
.BottomMargin = Application.InchesToPoints(0.59)
.HeaderMargin = Application.InchesToPoints(0.31)
.FooterMargin = Application.InchesToPoints(0.31)
.FirstPageNumber = xlAutomatic
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 200
End With
With ActiveSheet.PageSetup
fixi = MsgBox("Waagrecht Zentrieren ?", vbYesNo, "Zentrierung")
If fixi = vbYes Then .CenterHorizontally = True
fixi = MsgBox("Senkrecht Zentrieren ?", vbYesNo, "Zentrierung")
If fixi = vbYes Then .CenterVertically = True
TZ = InputBox("Wieviel Titelzeilen sollen beachtet werden ? ", "Titelzeilen festlegen", 3)
.PrintTitleRows = ActiveSheet.Rows("1:" & TZ).Address
'Fixierung setzen
'   ActiveWindow.FreezePanes = False
'  Range("A2").Select
'  ActiveWindow.FreezePanes = True
End With
ActiveWindow.SelectedSheets.PrintPreview
'Ende:
Application.Cursor = xlDefault
Application.StatusBar = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Viele Grüße
Herby

AW: Formatierung; Fixierung; Wiederholungszeilen

11.03.2007 00:40:00

Walter

Hallo Herby,
mit Dank, aber mit Fixierung meinte ich die feste Einstellung eines Wiedrholungsdruckbereiches (Zeile). Siehe auch: Datei_Seite einrichten_Tabelle, dann den Eintrag: Wiederholungszeilen oben.
Trotzdem erstmal mit Dank
Gruß
Walter

AW: Formatierung; Fixierung; Wiederholungszeilen

11.03.2007 05:25:00

Hans

Hallo Walter,
in Kurzform:

Sub SetRows()
Dim rng As Range
Set rng = Application.InputBox("Bitte Wiederholungszeilen auswählen:", Type:=8)
ActiveSheet.PageSetup.PrintTitleRows = rng.EntireRow.Address
End Sub

Gruss hans

AW: Formatierung; Fixierung; Wiederholungszeilen

11.03.2007 18:05:00

Walter

Hallo Hans,
mit bestem Dank, wird gleich ausgetestet.
Gruß
Walter

Beliebteste Forumthreads (12 Monate)

Formatierung; Fixierung; Wiederholungszeilen

Forumthread: Formatierung; Fixierung; Wiederholungszeilen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread