-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hallo Robert,
Am 28.03.2010 10:40, schrieb Robert Großkopf:
> irgendwie geht das sicher, nur wie? Ich möchte für einen Bericht auf der
> ersten Seite einen gesonderten Berichtskopf haben, der etwas umfangreichere
> Informationen enthält als der Seitenkopf. Nur gelingt es mir nicht, den
> Seitenkopf auf der ersten Seite verschwinden zu lassen ...
>
Ich baue mir alle meine Berichte mit der Hand zusammen. Ist viel
flexibler...
Für Daten die nur einmal vorkommen, verwende ich Feldbefehle, für Daten
die mehrfach vorkommen, eine Tabelle.
In Basic mache ich dann eine SQL-Abfrage und fülle dann die Feldbefehle
oder die Tabelle mit dem Ergebnis.
z.B. Feldbefehle:
if sName3 <> "" then
Feld_fuellen("Name3",sName3)
else
Feld_loeschen("Name3")
End if
Sub Feld_fuellen(sField as string,sInhalt as string )
Dim vField as Variant,vFieldMaster as Variant
Dim sFieldName as String
sFieldName = "com.sun.star.text.FieldMaster.User." + sField
vFieldMaster = oDoc.getTextFieldMasters.getByName(sFieldName)
vFieldMaster.Content = sInhalt
End Sub
Sub Feld_loeschen(sField as string)
Dim vField as Variant,vFieldMaster as Variant
Dim sFieldName as String
Dim bFound as boolean
vField = oDoc.createInstance("com.sun.star.text.TextField.User")
sFieldName = "com.sun.star.text.FieldMaster.User." + sField
bFound = oDoc.getTextFieldMasters.hasbyname(sFieldName)
if bFound Then
vFieldMaster = oDoc.getTextFieldMasters.getByName(sFieldName)
vFieldMaster.Content = ""
vFieldMaster.dispose()
End If
End Sub
In der Tabelle lege ich erstmal so viele Zeilen an wie Datensätze da
sind und fülle die Zellen dann mit dem Makro.
z.B. so:
vTableLeistungen.getCellByName("A" & iCountInsert).String=sPos
vTableLeistungen.getCellByName("B" & iCountInsert).String=sLeistungstext
vTableLeistungen.getCellByName("C" & iCountInsert).String=sEinheit
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.14 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/
iEYEARECAAYFAkuvNCwACgkQiEy3fOspk/MAHQCeJ6wcyvq8KRkJ2tGAKm0vYGLg
aYQAn0ppx7UMqwai35jGpdxhPZxSjzVP
=dZVe
-----END PGP SIGNATURE-----
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
