VPageBreak entfernen / verschieben
18.04.2008 19:41:34
Reinhard
manuell kriege ich es problemlos hin den vertikalen Seitenumnruch zu verschieben, entweder mit der Maus in der Seitenumbruchansicht, oder in Seitenansicht-Layout wenn ich auswähle Anpassen 1 Seite breit, aber per Makro kriege ich das nicht hin mit dem folgenden Code, im Gegenteil, es kommt Fehler 1004, siehe Remarks im Code.
Angezeigt wird in der Seitenansicht als erste Seite immer nur A1:G24 anstatt A1:I24, auch in der Tabelle sieht man zwischen G und H eine gestrichelte Linie in der Normalansicht.
Ich nehme natürlich jede Lösung, aber würde schon gerne wissen warum "FitToPagesWide nichts bringt, und wie man delete bzw. dragoff einsetzt.
Im aufgezeichneten Makro klappts ja auch mit DragOff.
Sub Druck2()
Dim wks As Worksheet
Set wks = ActiveSheet
wks.PageSetup.PrintArea = wks.UsedRange.Address
MsgBox wks.PageSetup.PrintArea ' korrekt A1:I24
wks.PageSetup.FitToPagesWide = 1 ' bringt nix
'wks.PageSetup.FitToPagesTall = 1
MsgBox wks.VPageBreaks.Count ' korrekt 1
'wks.VPageBreaks(1).Delete ' Fehler 1004
'wks.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 'Fehler 1004
wks.PrintPreview
End Sub
Danke ^ Gruß
Reinhard