[gelöst] Export als PDF funktioniert im Makro nicht

[kilix]

Hallo,

ich habe ein Dokument das aus 2 Tabellen besteht. Eine Tabelle davon wird aus einer Datenbanktabelle aktualisiert. Die andere Tabelle ist enthält die Daten der ersten Tabelle aber druckgerecht formatiert.
Diese zweite Tabelle (und nur die) möchte ich als PDF exportieren. Das funktioniert manuell über das Menü einwandfrei. Wenn ich diesen Export allerdings in einem Makro mache (aufgezeichnet) werden immer alle Tabellen des Dokuments exportiert.

Wie kann ich im Makro erreichen, dass nur diese eine Tabelle exportiert wird?

[mikeleb]

Hallo,
mit der Makroaufzeichnung kommst du da ncht weiter.

Code: Alles auswählen

sub pdf_einzelne_Tabelle
	odoc=ThisComponent
	Dim arg(2) as new com.sun.star.beans.PropertyValue
	arg(0).Name = "URL"	
	arg(0).Value = Left(odoc.url, Len(odoc.url) - 4) + "_Tab1.pdf" 'hier wird der Dateiname festgelegt
	arg(1).Name = "FilterName"
	arg(1).Value = "calc_pdf_Export"
	Dim aFilterData(0) as new com.sun.star.beans.PropertyValue
	aFilterData(0).Name = "Selection"
	aFilterData(0).Value = ThisComponent.Sheets(1) 'die Zählung der Tabellen beginnt bei 0
	arg(2).Name = "FilterData"
	arg(2).Value = aFilterData()
	ThisComponent.storeToUrl(arg(0).value,arg())
end sub	

[kilix]

@mikeleb

vielen Dank für diesen Makro er hat mir sehr geholfen und ich konnte damit ein Dokument in dem man sonst mehrere Eingaben machen musste mit einem einzigen Klick auf einen makrobutton automatisieren. Dabei kam mir deine (und die vieler anderer) vom Sommer dieses Jahres zugute denn damit konnte ich die Makros sehr gut anpassen und durch andere Schritte ergänzen.

DANKE!