Hallo
ich hab da ein Problem. Bei folgenden Code, der nach einem Setup des Druckbereichs und Layouts nach erfolgtem Ausdruck den alten zustand wieder herstellen soll, wird der Text im Header plötzlich anders formatiert (der Text wird durchgestrichen). Kann mn da irgendwas tun, dass dies nicht geschieht:
Private Sub CommandButton1_Click()
Dim iCol As Integer
Dim iRow As Integer
Dim strPrintAreaOri As String
'Summenfeld als "Ecke" suchen
For iCol = 1 To 30
If LCase(Me.Cells(1, iCol).Text) = "geschätzte anmietkosten" Then
For iRow = 2 To 200
'Rahmen abfragen, die Summe-Zelle muss es haben
If Me.Cells(iRow, iCol).Borders(xlEdgeLeft).Weight = xlMedium And _
Me.Cells(iRow, iCol).Borders(xlEdgeTop).Weight = xlMedium And _
Me.Cells(iRow, iCol).Borders(xlEdgeBottom).Weight = xlMedium And _
Me.Cells(iRow, iCol).Borders(xlEdgeRight).Weight = xlMedium Then
With ActiveSheet.PageSetup
'original Druckbereich merken
strPrintAreaOri = .PrintArea
'Druckbereich umstellen
.PrintArea = Range(Cells(1, 1), Cells(iRow, iCol)).Address
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlLandscape
'Printerfenster einblenden
Application.Dialogs(xlDialogPrint).Show
'original Druckbereich / Einrichtung wiederherstellen
.PrintArea = strPrintAreaOri
.Orientation = xlPortrait
'...oder falls es nötig ist, direkt auf den Standarddrucker schicken
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End With
Exit For
End If
Next iRow
Exit For
End If
Next iCol