Liebe Excelfreunde,
ich habe nachstehenden Code freundlicherweise vor längerer Zeit von Josef bekommen:
Private Sub Drucken(intCol As Integer, objWorksheet As Worksheet)
'von Josef Ehrensberger
Dim rngHide As Range, rng As Range
Dim lngLast As Long
Dim vBreak As VPageBreak, hBreak As HPageBreak
Call prcKillBreak
On Error GoTo ErrExit
blnPrint = True
With objWorksheet
lngLast = .Cells(Rows.Count, 2).End(xlUp).Row
If Application.CountA(.Range(.Cells(1, 2), .Cells(lngLast, 2))) < lngLast Then
For Each rngHide In .Range(.Cells(1, 2), .Cells(lngLast, 2))
If rngHide = "" Then
If rngHide.MergeCells Then
For Each rng In rngHide.MergeArea
rng.EntireRow.Hidden = rngHide.MergeArea.Cells(1) = ""
Next
Else
rngHide.EntireRow.Hidden = True
End If
End If
Next
End If
If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = True
On Error Resume Next
For Each vBreak In .VPageBreaks
vBreak.Delete
Next
For Each hBreak In .HPageBreaks
hBreak.Delete
Next
On Error GoTo ErrExit
.PageSetup.PrintArea = .Range(.Cells(1, 2), .Cells(lngLast, intCol)).Address
.PageSetup.Orientation = xlLandscape
.PageSetup.LeftMargin = Application.InchesToPoints(0.393700787401575)
.PageSetup.RightMargin = Application.InchesToPoints(0.31496062992126)
.PageSetup.TopMargin = Application.InchesToPoints(0.393700787401575)
.PageSetup.BottomMargin = Application.InchesToPoints(0.353700787401575)
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 99
.PrintPreview
.PageSetup.PrintArea = ""
.Range(.Cells(1, 2), .Cells(lngLast, 2)).Rows.Hidden = False
End With
Der Code funktioniert tadellos, in dem er automatisch die Anzahl der auszudruckenden Seiten einer Tabelle ermittelt.
Meine Frage:
Wie stelle ich es an, dass die Seitenanzahl als Zahlenwert erhalte? Die Anzahl der Seiten ist von Tabelle zu Tabelle unterschiedlich.
Vielen Dank für die Unterstützung!!
Gruß: Konni