PageSetup Border festlegen
02.01.2020 14:35:30
Peer
Ich drucke einen bestimmten Bereich meiner Tabelle aus und möchte um alles einen "dicken" Rahmen beim Ausdruck ziehen.
Dabei bin ich im Web auf
Pagesetup.Borders.LineStyle = xlContinuous
Dieser Befehl macht nicht, was er soll, stattdessen gibt er eine Meldung aus "Fehler 438- Methode nicht unterstützt".
Habe ich hier den falschen Gedanken, oder habe ich den Befehl nur verkehrt gesetzt? Oder muss ich vollkommen anders ran gehen?
Sub DruckZeilenNeu()
Dim Zeile As Long, i As Long
Application.ScreenUpdating = False
For i = 1 To 2
With Worksheets(i)
.Unprotect
'Spalte A ausblenden
.Range("A1:A100").EntireRow.Hidden = False
'Spalten B bis AK einblenden
.Columns("B:AK").Hidden = False
With .PageSetup
'Kopfzeile "Formatierung Arial" Name des Blattes Zelle des _
jeweiligen Blattes (Jahr)
.CenterHeader = "&""Arial,bold""&22" & Worksheets(i).name & " " & Format(Worksheets( _
i).Cells(12, 2), "YYYY")
'Horizontale Ausrichtung des Inhaltes
.CenterHorizontally = False
'Vertikale Ausrichtung des Inhaltes
.CenterVertically = True
.FitToPagesTall = 1
.FitToPagesWide = 1
.Zoom = False
.Orientation = xlLandscape
.Borders.LineStyle = xlContinuous
End With
'Ab Zeile 12 prüfen, ob in Spalten T bis U Zeileninhalte vorhanden
' For Zeile = 12 To .Cells.SpecialCells(xlCellTypeLastCell).Row
' If Application.WorksheetFunction.CountA(.Range(.Cells(Zeile, 20), _
' .Cells(Zeile, 21))) = 0 Then
' 'ggf. zeile ausblenden
' .Rows(Zeile).Hidden = True
' End If
' Next Zeile
'Spalten F bis S und V bis AK ausblenden
.Range("F:S,V:Y,AG:AK").EntireColumn.Hidden = True
'Drucken
'.PrintOut 'Drucken auf aktiven Drucker
.Range("B8:AF42").PrintPreview 'Seitenvorschau
'Spalte A ausgeblendet lassen
.Range("A1:A100").EntireRow.Hidden = False
'Spalten F bis S und V bis AK wieder einblenden
.Range("F:S,V:Y,AG:AK").EntireColumn.Hidden = False
.Protect
End With
Next i
End Sub
Peer