technik <technik_...@jrsch.de> schrieb:
> Wie kann ich nur Tab1 exportieren? (mit Makrobefehl)
> Ich habe:
> dim args2(2) as new com.sun.star.beans.PropertyValue
> [viele viele Zeilen gelöscht]
Aua, irgendwie extrem umständlich, finde ich.
sub Export
druckbereich("Plan","$A$1:$Q$28")
url ="c:\temp.pdf"
Dim PrintProperties(0) As New com.sun.star.beans.PropertyValue
PrintProperties(0).Name="FilterName"
PrintProperties(0).Value = "calc_pdf_Export"
Doc.storetoUrl(converttourl(Url),PrintProperties())
end sub
sub druckbereich(blatt,bereich)
Doc = ThisComponent
Dim Druckbereich(0)
For i = 0 to Doc.Sheets.getCount() - 1
Doc.Sheets.getByIndex(i).setPrintareas(array())
Next
Sheet = Doc.Sheets.getByName(Blatt)
ZellRange = Sheet.getCellRangeByName(Bereich)
Druckbereich(0) = Sheet.createCursorByRange(ZellRange).RangeAddress
Sheet.setPrintAreas(Druckbereich())
end sub
cu,
Christian
PGP Key available.
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
