OpenOffice.info

Hallo Thomas,

das ist sicherlich der bessere Weg!

Vielen Dank.

Gruss

Thomas

sub showPDF
  sURL = "d:\Daten\test.pdf"  'Dateinamen mit Pfad
  oService = createUnoService("com.sun.star.system.SystemShellExecute")
  oService.execute(sURL,,0)
end sub

Hey Thomas,

ich misch noch mal mit, auch wenn schon etwas länger her, aber, CeBIT und so... ;-)

Neben dem reinen Basic-Shell Befehl den ihr hier benutzt, solltest du einmal denb UNO-Shell Befehlt testen. Hier ist es nämlich in der Regel gar nicht nötig, den genauen Ort des Programms zu kennen - solange es nur dem System bekannt ist (Mime-Typ). Das ist meist effizienter.
Also, um das PDF-Dokument aufzurufen, reicht dann:
[code]sub showPDF
sURL = "d:\Daten\test.pdf" 'Dateinamen mit Pfad
oService = createUnoService("com.sun.star.system.SystemShellExecute")
oService.execute(sURL,,0)
end sub[/code]
Der Execute-Befehl erwartet drei Parameter: zunächst die Datei oder das Programm. Übergibt man nur eine Datei, so entspricht das einem Doppelklick in der Gui auf den Dateinamen - das System erkennt die dazugehörige Applikation und startet die automatisch :-) (es muss also nicht der Adobe Reader sein), der zweite Parameter wäre eine Liste von Übergabeparametern (oder eben nichts) und der dritte ist ein Flag:
0 = Standard, 1 = keine Systemmeldung, falls Fehler.

Ich denke, das wäre der bessere Weg in deinem Programm.

Viele Grüße
Thomas

Hallo Karo,

mit getGuiType() bekomme ich die Unterscheidung hin!

Die Löschbefehle unter Windows schau ich mir noch an.

Vielen Dank!

Thomas

Hallo
[quote]Wie frage ich ab, auf welchem Betriebssystem ich mich gerade befinde (in Java gibt es sowas wie 'system.getProperties'). [/quote]

Die Suche nach "Betriebssystem ermitteln" führt u.a. zu diesem Thema:

[url]http://de.openoffice.info/viewtopic.php?t=10918&highlight=betriebssystem+ermitteln[/url]

[quote]Wie sieht der entsprechende Löschbefehl für die Datei test.pdf unter Windows aus?[/quote]

Die Google-Suche nach "MS-DOS-befehle" ergibt die Befehle 'DEL' und 'ERASE' zum löschen von Dateien unter Windows.
Hilft dir das weiter ?

Gruß Karo

Shell("acroread", 0, "C:/temp/test.pdf",True)

Shell("C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe", 0, "C:/temp/test.pdf",True)

Hallo Karo,

auch der Löschbefehl klappt!

Unter Linux reicht bei mir übrigens der Befehl:

[code]Shell("acroread", 0, "C:/temp/test.pdf",True)[/code]

um die Datei zu öffnen.
Ich brauche scheinbar keinen Pfad zur Reader-Exe mit zu geben(?!).


Meine Calc-Anwendung muss allerdings unter Windows und unter Linux laufen.

Mit
[code]Shell("C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe", 0, "C:/temp/test.pdf",True)[/code]

klappt der Aufruf auch unter Windows.

Nun meine Fragen:

Wie sieht der entsprechende Löschbefehl für die Datei test.pdf unter Windows aus?
gibt es auch unter Windows die Möglichtkeit den Reader ohne konkreten Pfad auf zu rufen?
Wie frage ich ab, auf welchem Betriebssystem ich mich gerade befinde (in Java gibt es sowas wie 'system.getProperties').

Gruss

Thomas

Hallo Thomas
[quote]Kannst Du mir vielleicht auch sagen, wie ich die Datei nach dem Schließen des Readers wieder löschen kann? [/quote]

Wenns ebenfalls via Shell sein darf ? - das Prinzip bleibt das gleiche:

Shell("Pfad\zum\lösch\befehl", 0, "\pfad\zur\test.pdf",True)

Ich arbeite mit Linux daher kann ich dir keine konkreteren Angaben machen, bei mir funktioniert ein Test mit der Code-zeile:
...
Shell("/bin/rm", 0, "/home/aaa/test.txt",True)
....

Danke Karo,

hat beides bestens geklappt!!!

Kannst Du mir vielleicht auch sagen, wie ich die Datei nach dem Schließen des Readers wieder löschen kann?

Gruss

Thomas

Sub Reader
Shell("C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe", 0, "C:\temp\test.pdf",True)
msgbox "Reader beendet"
End Sub 

Hallo Thomas
[quote]Wie kann ich dem AcrobatReader sagen, dass er beim Start automatisch die Datei test.pdf öffnen soll(Kommandozeilenparameter???)? [/quote]

Füg doch mal den Pfad zur 'test.pdf' zwischen den hinteren ""-zeichen ein:

[code]Sub Reader
Shell("C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe", 0, "C:\temp\test.pdf",True)
msgbox "Reader beendet"
End Sub [/code]

[quote]m exportierten PDF-Dokument werden die Nullwerte angezeigt, obwohl die Option.....[/quote]

Unter -->Format-->Seite 'Tabelle'--Drucken die Option 'Nullwerte' abschalten.

Gruß Karo

Druckbereich_Anlegen(oSheet_Test,0,0,25,100) 

Sub Druckbereich_Anlegen(nSht as Object, _
                         nStC as Integer, _
                         nStR as Integer, _
                         nEndC as Integer, _
                         nEndR as Integer)

Dim CellrangeAddress AS New com.sun.star.table.CellRangeAddress
Dim args(0)
Dim myProps(0) as New com.sun.star.beans.PropertyValue
Dim arg_leer()


    Cellrangeaddress.StartColumn = nStC
    Cellrangeaddress.Startrow = nStR
    Cellrangeaddress.EndColumn = nEndC
    Cellrangeaddress.EndRow = nEndR
    args(0) = Cellrangeaddress
    nSht.setPrintAreas(args())   'Druckbereich wird erstellt
    
    sUrl= "file:///C:/temp/test.pdf"
 
    myProps(0).Name="FilterName"
    myProps(0).Value = "calc_pdf_Export"
    ThisComponent.storeToUrl(sUrl,myProps())
    nSht.setPrintareas(arg_leer())  'Druckbereich wird gelöscht
    
End Sub 

Sub Reader
Shell("C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe", 0, "",True)
msgbox "Reader beendet"
End Sub

Hallo zusammen,

ich möchte den Druck meiner Calc-Dokumente über PDF realisieren.

Einige Bausteine habe ich schon zusammen:

Mit dem Makroaufruf

[code]Druckbereich_Anlegen(oSheet_Test,0,0,25,100) [/code]

[code]Sub Druckbereich_Anlegen(nSht as Object, _
nStC as Integer, _
nStR as Integer, _
nEndC as Integer, _
nEndR as Integer)

Dim CellrangeAddress AS New com.sun.star.table.CellRangeAddress
Dim args(0)
Dim myProps(0) as New com.sun.star.beans.PropertyValue
Dim arg_leer()


Cellrangeaddress.StartColumn = nStC
Cellrangeaddress.Startrow = nStR
Cellrangeaddress.EndColumn = nEndC
Cellrangeaddress.EndRow = nEndR
args(0) = Cellrangeaddress
nSht.setPrintAreas(args()) 'Druckbereich wird erstellt

sUrl= "file:///C:/temp/test.pdf"

myProps(0).Name="FilterName"
myProps(0).Value = "calc_pdf_Export"
ThisComponent.storeToUrl(sUrl,myProps())
nSht.setPrintareas(arg_leer()) 'Druckbereich wird gelöscht

End Sub [/code]

erstelle ich einen Druckbereich, exportiere ich ins PDF und lösche den Druckbereich wieder.

Mit

[code]Sub Reader
Shell("C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe", 0, "",True)
msgbox "Reader beendet"
End Sub
[/code]
öffne ich den AcrobatReader.

Nun meine Fragen:

Wie kann ich dem AcrobatReader sagen, dass er beim Start automatisch die Datei test.pdf öffnen soll(Kommandozeilenparameter???)?

Im exportierten PDF-Dokument werden die Nullwerte angezeigt, obwohl die Option 'Nullwerte anzeigen' in Calc deaktiviert ist. Gibt es dafür eine spezielle Eigenschaft beim Export?

Vielleicht hat sich ja schon mal jemand damit beschäftigt.

Gruss

Thomas