Excel - HPageBreak einfügen

[Koverhage]

Hallo,
kann mir jemand eine Tipp geben wie ich das in Xbase++ hinkriege ?

in VBA
ActiveSheet.HPageBreaks.Add Before:=Cells(iZeile + 21, 1)

Mein Versuch
oRange := oNutzerliste:Range("A"+ltrim(str(nRow))+":A"+ltrim(str(nRow)))
oNutzerliste:HPageBreaks:Add(Cells(oRange)

Danke schon mal

[georg]

Hallo, Klaus -


Tippfehler?

...HPageBreaks:AddBefore(...)

[Koverhage]

Hallo Gerord,
da bekomme ich
Fehler Automation/6500
Beschreibung: Unbekannter Name
Methode ist f

[Wolfgang Ciriack]

Hallo Klaus,
HPageBreaks:Add erwartet ein Range-Objekt, das hast du ja schon erstellt, daher würde ich mal nur
oNutzerliste:HPageBreaks:Add(oRange) versuchen.

[flanelli]

Hallo Klaus,

mein_umbruch:=oNutzerliste:Rows(nRow) // gewünschte Zeilennummer
oNutzerliste:HPageBreaks:add(mein_umbruch)

funktioniert einwandfrei

Bei Deinem Versuch fehlt übrigens eine schließende Klammer
>Mein Versuch
>oRange := oNutzerliste:Range("A"+ltrim(str(nRow))+":A"+ltrim(str(nRow)))
>oNutzerliste:HPageBreaks:Add(Cells(oRange))


PS.:
Das "before" von Georg stammt wohl aus einem Mustercode und stünde dann ale Zeilenwert innerhalb
der Klammern ()
also statt ...HPageBreaks:AddBefore(...) ein ...HPageBreaks:Add(Before)

[flanelli]

Hallo Klaus,

mein_umbruch:=oNutzerliste:Rows(nRow) // gewünschte Zeilennummer
oNutzerliste:HPageBreaks:add(mein_umbruch)

funktioniert einwandfrei

Bei Deinem Versuch fehlt übrigens eine schließende Klammer
>Mein Versuch
>oRange := oNutzerliste:Range("A"+ltrim(str(nRow))+":A"+ltrim(str(nRow)))
>oNutzerliste:HPageBreaks:Add(Cells(oRange))


PS.:
Das "before" von Georg stammt wohl aus einem Mustercode und müßte dann allenfalls als Zeilenwert innerhalb
der Klammern () der stehen
also statt ...HPageBreaks:AddBefore(...) ein ...HPageBreaks:Add(Before)

[flanelli]

Hallo Klaus,

mein_umbruch:=oNutzerliste:Rows(nRow) // gewünschte Zeilennummer
oNutzerliste:HPageBreaks:add(mein_umbruch)

funktioniert einwandfrei

Bei Deinem Versuch fehlt übrigens eine schließende Klammer
>Mein Versuch
>oRange := oNutzerliste:Range("A"+ltrim(str(nRow))+":A"+ltrim(str(nRow)))
>oNutzerliste:HPageBreaks:Add(Cells(oRange))


PS.:
Das "before" von Georg stammt wohl aus einem Mustercode und müßte dann allenfalls als Zeilenwert innerhalb
der Klammern () stehen, ein addbefore gibt es ja nicht
also statt ...HPageBreaks:AddBefore(...) ein ...HPageBreaks:Add(Before)

[Tom]

Das hier sagt ChatGPT:

Code: Alles auswählen

// Initialisiere die Excel-Anwendung
oExcel = CREATEOBJECT("Excel.Application")
oExcelWorkBook = oExcel:Workbooks:Add()
oExcelWorksheet = oExcelWorkBook:Worksheets:Add()

// Füge einen Seitenwechsel hinzu
oExcelWorksheet:HPageBreaks:Add(oExcelWorksheet:Cells(1, 1))

// Speichere die Änderungen und beende Excel
oExcelWorkBook:SaveAs("deinDateipfad\deinArbeitsblatt.xlsx")
oExcelWorkBook:Close()
oExcel:Quit()

[Koverhage]

Melde das Ergebnis wenn ich beide probiert habe.

[Koverhage]

Funktioniert wohl beides
Danke flanelli und Tom (oder die KI ?).
Über Seite einrichten war eingestellt das alles auf eine Seite gedruckt wird.
Da muss ich wohl noch ein wenig probieren ;-(