Seite 1 von 1
Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 10:18
von 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
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 12:17
von georg
Hallo, Klaus -
Tippfehler?
...HPageBreaks:AddBefore(...)
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 12:48
von Koverhage
Hallo Gerord,
da bekomme ich
Fehler Automation/6500
Beschreibung: Unbekannter Name
Methode ist f
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 12:55
von 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.
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 14:18
von 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)
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 14:18
von flanelli
flanelli hat geschrieben: ↑Mo, 27. Nov 2023 14:18
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)
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 14:20
von flanelli
flanelli hat geschrieben: ↑Mo, 27. Nov 2023 14:18
flanelli hat geschrieben: ↑Mo, 27. Nov 2023 14:18
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)
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 15:56
von 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()
Re: Excel - HPageBreak einfügen
Verfasst: Mo, 27. Nov 2023 16:18
von Koverhage
Melde das Ergebnis wenn ich beide probiert habe.
Re: Excel - HPageBreak einfügen
Verfasst: Di, 28. Nov 2023 9:41
von 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 ;-(