Re: uno:ExportToPDF

[Christian]

technik  schrieb:

> Sehr seltsam. Auf beiden läuft 4.1.1 unter Win7.

> Ich habe noch ein Doc = ThisComponent am anfang eingefügt.

Sorry, habe beim Ver-Übersichtlichen zu viel gelöscht. Schön zu sehen,  
daß es auch unter 4.x läuft, hier: 1.1.5 :-)
Updaten werde ich wohl erst, wenn Berechnungen mit Zellen, die Text  
enthalten (=Wert Null), wieder möglich sein werden (und nicht mehr #WERT!  
liefern) und/oder Drag deaktivierbar ist.

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

Re: uno:ExportToPDF

[technik]

Hallo Christian,

ich fand das auch umständlich, aber das schien zu funktionieren. 
Zumindest auf dem Laptop
Aber jetzt habe ich das gleiche Programm auf dem Desktop ausgeführt und 
da ignoriert er die Seitenangabe.

Sehr seltsam. Auf beiden läuft 4.1.1 unter Win7.
Aber diese ganze uno:-Programmierung verstehe ich nur rudimentär.

Dein Programm lief zuerst nicht
Doc.storetoUrl(converttourl(Url),PrintProperties()) 'gibt Fehler 
Objektvariable nicht belegt

Ich habe noch ein Doc = ThisComponent am anfang eingefügt.
Public doc as object geht auch.

Den Rest kann ich mir anpassen. Vielen Dank.

Horst





Am 10.12.2015 um 15:50 schrieb Christian:

technik  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




-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: uno:ExportToPDF

[Christian]

technik  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

Re: uno:ExportToPDF

[technik]

Hallo,
hat sich erledigt. Schließlich hat der Rekorder doch noch ein Ergebnis 
gebracht:

Man muss an den Array unten noch
,Array("PageRange",0,"4",com.sun.star.beans.PropertyState.DIRECT_VALUE
anhängen. Wobei 4 die Seit 4 ausgibt. Man kann auch 1-3 ausgeben.

Horst

Am 08.12.2015 um 11:43 schrieb technik:

Hallo,

ich habe ein Calc Dokument mit zwei Tabellen: Tab1 und Tab2

Mit einem Makro möchte ich einmal Tab1 in tab1.pdf exportieren. Dann 
entsprechend Tab2

Aber es wird nur immer das gesamte Dokument exportiert.

Wie kann ich nur Tab1 exportieren? (mit Makrobefehl)



Ich habe:
dim args2(2) as new com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value = "file:///C:/Users/.../Liedliste1.pdf" (Pfad verändert)
args2(1).Name = "FilterName"
args2(1).Value = "calc_pdf_Export"
args2(2).Name = "FilterData"
args2(2).Value = 
Array(Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ReduceImageResolution",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("MaxImageResolution",0,300,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTaggedPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SelectPdfVersion",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarks",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenBookmarkLevels",0,-1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseTransitionEffects",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsSkipEmptyPages",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsAddStream",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EmbedStandardFonts",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FormsType",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportFormFields",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("AllowDuplicateFieldNames",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerToolbar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerMenubar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("HideViewerWindowControls",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ResizeWindowToInitialPage",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("CenterWindow",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("OpenInFullScreenMode",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("DisplayPDFDocumentTitle",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialView",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Magnification",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Zoom",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageLayout",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FirstPageOnLeft",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("InitialPage",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Printing",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Changes",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableCopyingOfContent",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportLinksRelativeFsys",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PDFViewSelection",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ConvertOOoTargetToPDFTarget",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarksToPDFDestination",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("_OkButtonString",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PreparedPasswords",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PreparedPermissionPassword",0,Array(),com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE))


dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, 
args2())


Vielen Dank
|Horst|





-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org