openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From christ...@soemtron.de (Christian)
Subject Re: uno:ExportToPDF
Date Thu, 10 Dec 2015 14:50:00 GMT
technik <technik_div@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-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message