OpenOffice.info

dim oborder as new com.sun.star.table.BorderLine
ocellrange = otable.getcellrangebyposition(0,j,1,k)
    with oborder
        .Color = 13421772
        .OuterLineWidth = 25
    end with
    with ocellrange
        .TopBorder = oborder
        .LeftBorder = oborder
        .RightBorder = oborder
        .BottomBorder = oborder
    end with

for m = 0 to 1
   for n = 0 to 6
     ocell = onewcellrange.getcellbyposition(m,n)
      if n = 0 then ocell.TopBorder = oborder
      if m = 0 then ocell.LeftBorder = oborder
      if m = 1 then ocell.RightBorder = oborder
      if n = 6 then ocell.BottomBorder = oborder
   next n
next m

Hallo zusammen,
ich habe eine Lösung gefunden. Wenn ich statt des Cellranges wie hier
[code]dim oborder as new com.sun.star.table.BorderLine
ocellrange = otable.getcellrangebyposition(0,j,1,k)
with oborder
.Color = 13421772
.OuterLineWidth = 25
end with
with ocellrange
.TopBorder = oborder
.LeftBorder = oborder
.RightBorder = oborder
.BottomBorder = oborder
end with[/code]

die einzelnen Zellen direkt anspreche:
[code]for m = 0 to 1
for n = 0 to 6
ocell = onewcellrange.getcellbyposition(m,n)
if n = 0 then ocell.TopBorder = oborder
if m = 0 then ocell.LeftBorder = oborder
if m = 1 then ocell.RightBorder = oborder
if n = 6 then ocell.BottomBorder = oborder
next n
next m[/code] ist alles wie gewünscht.
Grüße von Rik

    oViewCursor.jumpToFirstPage
    oViewCursor.jumpToStartOfPage
    oViewCursor.jumpToEndOfPage
    oViewCursor.jumpToLastPage

Hallo Balu,
[quote="balu"]Wenn ich dich jetzt richtg versteh, hast Du ein Problem mit der "ViewData"[/quote]
Das weiss ich eben leider nicht. Ich kann nur beobachten, dass die Zellränder dann komplett eingefärbt werden, wenn ich zwischendurch z.B. Xray oder eine Messagebox öffne. Versuche mit dem ViewCursor ala
[code] oViewCursor.jumpToFirstPage
oViewCursor.jumpToStartOfPage
oViewCursor.jumpToEndOfPage
oViewCursor.jumpToLastPage[/code] bringen insoweit eine Verbesserung, als dass nun alle Ränder richtig eingefärbt werden, wenn die Tabelle länger als die erste Seite ist. Befindet sich die Tabelle nur auf der ersten Seite, bleibt der Fehler.

Beste Grüße von Rik

Hallo Rik,

nein, ich hab mir deine Dateien nicht angeschaut. Das nur am Rande.

Wenn ich dich jetzt richtg versteh, hast Du ein Problem mit der "ViewData", siehe auch meinen Thread dazu: [url=http://de.openoffice.info/viewtopic.php?f=18&t=48767]Hidden-Datei kein Fenster fixierbar?[/url]. Dort hatten mir DPunch und Karolus mitgeteilt das dies nicht direkt geht, sondern eventuell nur mittels Stream-Zugriff auf die settings.xml.
Wie das allerdings mit dem streamen geht, weiß ich nicht, keine Ahnung. Aber da können dir wohl andere helfen, z.B. Karolus oder DPunch.

Es kann aber auch sein, das ich mit meiner Vermutung "ViewData" vollkommen daneben liege.

Vielleicht solltest Du mal anstatt mit Hidden lieber mit Minimized testen.



Gruß
balu

Hallo Karolus,
es handelt sich um den automatischen Export von etwa 20 Dateien, die direkt als .pdf gespeichert werden.
Wenn ich sie sichtbar öffne, flackern sie nacheinander auf den Schirm, werden gespeichert und wieder geschlossen.
Das sieht nicht schön aus. Darum möchte ich sie im Hintergrund öffen und bearbeiten. Sichtbar ist nur der wachsende Statusbalken: Datei 1/21, Datei 2/21 usw.

Gruß Rik

Hallo
Ich hab da ein Verständnissproblem - warum will man [u]unsichtbaren[/u] Dingen irgendwelche [u]optische Attribute[/u] zuordnen?

Kannst du das nicht zu dem Zeitpunkt machen wenn das Dok tatsächlich sichtbar geöffnet wird?

Karolus

otable = oReport.TextTables.getbyindex(2)

dim oborder as new com.sun.star.table.BorderLine
ocellrange = otable.getcellrangebyposition(0,j,1,k)
    with oborder
        .Color = 13421772
        .OuterLineWidth = 25
    end with
    with ocellrange
        .TopBorder = oborder
        .LeftBorder = oborder
        .RightBorder = oborder
        .BottomBorder = oborder
    end with

oFrame = oreport.currentcontroller.frame
owindow = oframe.containerwindow
owindow.setVisible(true)

Guten Abend zusammen,

mit meinem Makro habe ich folgendes Problem:
Ich öffne per Makro einen mit dem Reportbuilder erzeugten Bericht. Dieser Bericht ist ein reines Writer-Dokument.
Es enthält anstelle der Kontrollfelder, die im Bearbeitungsmodus des Berichts plaziert werden, Writer Tabellen, die z.B über
[code]otable = oReport.TextTables.getbyindex(2)[/code] angesprochen werden können.
Einem Zellbereich einer Tabelle kann z.B. über
[code]dim oborder as new com.sun.star.table.BorderLine
ocellrange = otable.getcellrangebyposition(0,j,1,k)
with oborder
.Color = 13421772
.OuterLineWidth = 25
end with
with ocellrange
.TopBorder = oborder
.LeftBorder = oborder
.RightBorder = oborder
.BottomBorder = oborder
end with[/code]
die Farbe der Bereichsränder sowie die Strichstärke zugeordnet werden.
Das klappt wunderbar, wenn ich das Dokument sichtbar öffne.

Wenn ich es aber unsichtbar, im Hintergrund öffne, fehlen Randabschnitte, aber nur auf der ersten Seite des Berichtes.
Baue ich ein XRAY ein, oder schalte ich das Dokument einmal per
[code]oFrame = oreport.currentcontroller.frame
owindow = oframe.containerwindow
owindow.setVisible(true)[/code] sichtbar, sind alle gewünschten Zellränder eingefärbt.
Der Fehler hängt irgendwie mit der nicht erzeugten Ansicht zusammen.
Hat jemand dazu eine Idee?

Anbei zwei Beispieldokumente, die mit dem gleichen Makro formatiert und gespeichert wurden.

Beste Grüße von Rik