Unterschiedliches Verhalten meiner Druck-Makros (Calc)
Verfasst: Di, 22.03.2011 11:18
Hallo zusammen,
ich habe folgendes Problem: ich habe 2 Druck-Makros gebastelt, welche an meinem PC (Vista, OO 3.2.1) auch genau das machen was sie eigentlich sollen... => nur bestimmte Tabellen, auf einem bestimmten Drucker drucken.
Wenn ich das Makro "DruckAnalyse" an anderen PCs (ebenfalls Vista und OO 3.2.1) laufen lasse, wird aber wehement immer nur die erste Tabelle (also nur eine Seite) gedruckt. Wenn ich das Makro "DruckKunde" ausführe passiert gar nichts.
Die Tabellen 1, 3 u. 5 sind im Dokument ein-, die Tabellen 2, 4 u. 6 sind ausgeblendet.
Alle Tabellen sind KW-geschützt.
Ich bin echt am verzweifeln...
Die Tipps vom Dannenhöfer brachten mich leider ebenso wenig weiter wie das Oracle StarOffice Programmierhandbuch für BASIC.
Ich hoffe ihr habt noch eine Idee.
Viele Grüße
xemu
ich habe folgendes Problem: ich habe 2 Druck-Makros gebastelt, welche an meinem PC (Vista, OO 3.2.1) auch genau das machen was sie eigentlich sollen... => nur bestimmte Tabellen, auf einem bestimmten Drucker drucken.
Wenn ich das Makro "DruckAnalyse" an anderen PCs (ebenfalls Vista und OO 3.2.1) laufen lasse, wird aber wehement immer nur die erste Tabelle (also nur eine Seite) gedruckt. Wenn ich das Makro "DruckKunde" ausführe passiert gar nichts.
Die Tabellen 1, 3 u. 5 sind im Dokument ein-, die Tabellen 2, 4 u. 6 sind ausgeblendet.
Alle Tabellen sind KW-geschützt.
Code: Alles auswählen
sub DruckAnalyse
dim myDoc as Object
myDoc=ThisComponent
dim PrinterProp(0) as New com.sun.star.beans.PropertyValue
dim PrintProperties(1) As New com.sun.star.beans.PropertyValue
PrinterProp(0).name="Name"
PrinterProp(0).value="eDocPrinter PDF Pro"
myDoc.Printer = PrinterProp()
PrintProperties(0).Name="Pages"
PrintProperties(0).Value= "1;3;5"
PrintProperties(1).name="Wait"
PrintProperties(1).value=True
myDoc.print(PrintProperties())
end sub
rem *******************************************************
sub DruckKunde
dim myDoc as Object
myDoc=ThisComponent
dim PrinterProp(0) as New com.sun.star.beans.PropertyValue
dim PrintProperties(1) As New com.sun.star.beans.PropertyValue
PrinterProp(0).name="Name"
PrinterProp(0).value="eDocPrinter PDF Pro"
myDoc.Printer = PrinterProp()
PrintProperties(0).Name="Pages"
PrintProperties(0).Value= "2;4;6"
PrintProperties(1).name="Wait"
PrintProperties(1).value=True
myDoc.print(PrintProperties())
end sub
Die Tipps vom Dannenhöfer brachten mich leider ebenso wenig weiter wie das Oracle StarOffice Programmierhandbuch für BASIC.
Ich hoffe ihr habt noch eine Idee.
Viele Grüße
xemu