-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi Niklas,
thanks, that is what i was looking for :-)
> "Selection" only works with a single sheet (or cell range). To export
> several sheets, you should set up print areas.
REM ***** BASIC *****
Sub PDFExport()
On Local Error Goto ErrorHandler
Dim oDocument as Object
Dim oSheet as Object
Dim exportPath as String
Dim i as Integer
Dim mArgs(4) as new com.sun.star.beans.PropertyValue
Dim mFilterData(1) as new com.sun.star.beans.PropertyValue
exportPath = "E:\"
mArgs(0).Name = "FilterName"
mArgs(0).Value = "calc_pdf_Export"
mArgs(1).Name = "Overwrite"
mArgs(1).Value = True
oDocument = ThisComponent
For i = 0 To oDocument.getSheets().getCount()-1
oSheet = oDocument.getSheets().getByIndex(i)
mFilterData(0).Name = "Selection"
mFilterData(0).Value = oSheet
mArgs(2).Name = "FilterData"
mArgs(2).Value = mFilterData()
oDocument.storeToURL(ConvertToURL(exportPath &
oSheet.getName()) & ".pdf", mArgs())
Next i
Exit Sub
ErrorHandler:
MsgBox("Error: " & Err() & Chr(13) & "Line: " & Erl() & Chr(13) &
Error(), 1+16, "Error...")
End Sub
Oliver
- --
GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.5 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFFFBkUTiyrQM/QSkURAucnAKCo543RMWtATNaSHVMmB+NKrbkd4ACggCw+
U+TJymIF+3SOQEIhUEsRyi0=
=9SnV
-----END PGP SIGNATURE-----
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
