OpenOffice.info

Habe [url=http://www.oooforum.de/viewtopic.php?f=18&t=47499]die Lösung[/url] auch bei mir umgesetzt.

Danke euch.

Hallo,

vielen Dank für eure Hinweise.
Ihr habt recht - ich bin mit "Pages" voll auf die Nase gefallen.

Ich habe in dieser Datei ca. 20 Blätter mit jeweils individuellen Druckbereichen.
Die Seitenansicht u. Druckvorschau ist soweit auch in Ordnung - wie ich es eben haben möchte.

Im Kern ist es das selbe Problem wie es delta9 [url=http://www.oooforum.de/viewtopic.php?f=18&t=47499&sid=ab7b1c9f6696594b38cb7c55ce696e75]hier[/url] hat.

Gibt es wirklich keine Möglichkeit mehrere (bestimmte) Blätter gleichzeitig per Makro zu drucken?

Gruß xemu

Bevor Du mit Makros arbeitest, kannst Du die Seiten ja im Druckmenü von Hand auswählen und so den von Stephan erörterten Zusammenhang ganz unmittelbar ausprobieren. Beachte auch die Druckbereiche und die Anzeige der Umbrüche in der Bildschirmansicht.

Irgendwie hängt Dein Druckproblem ja auch mit meinem zusammen (Siehe Beitrag hier in der Nähe)

Stefan

[quote]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.[/quote]

Aber das tun beide Makros doch überhaupt nicht, oder allenfalls zufällig.

Warum?
Beide Makros drucken lediglich bestimmte SEiten, was aber überhaupt nicht mit dem Druck bestimmter Tabellen zu tun hat, denn jede Tabelle kann beliebig viele Druckseiten umfassen.

[quote]Die Tabellen 1, 3 u. 5 sind im Dokument ein-, die Tabellen 2, 4 u. 6 sind ausgeblendet.[/quote]

Und hier wird, in KOmbination mit dem Code, deutlich das Du die Situation wohl mißverstehst und Seiten und Tabellen durcheinanderwirfst, was wahrscheinlich deshalb bisher ohne merkbare Prbleme blieb weil bei Dir jede Tabelle zufällig(!) auch eine Seite umfasst.


[quote]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.[/quote]

Möglicherweise sind Druckbereiche festgelegt, die zu einem ganz anderen Gesamtergebnis führen und somit indirekt auch ein ungewünschtes Ergebnis erzeugen wenn nur bestimmte Seiten gedruckt werden. Möglicherweise sind auch andere Seitenvorlagen anders zugewiesen.

[quote]Ich bin echt am verzweifeln...
Die Tipps vom Dannenhöfer brachten mich leider ebenso wenig [/quote]

Alle Tipps auf die der Link verweist haben nichts Konkretes mit dem Thema zu tun.
Relevant wäre z.B. der Link:
http://www.starbasicfaq.de/WiekannmaneinenDruckbereichfestlegen..html#Zweig226



Worüber Du Dir zunächst KLarheit verschaffen müßtest ist der prinzipielle Unterschied zwischen Tabellen und Seiten um dann überhaupt Klarheit zu erlangen was genau gedruckt werden soll, denn nur so kommst Du zu einem verlässlichen Makro.



Gruß
Stephan

Willkommen im Forum.

Auf beiden Rechnern die gleichen [color=#0040FF]Extras>Optionen...>OpenOffice.org Calc>Drucken[/color] gesetzt?


[img]https://lh5.googleusercontent.com/_cgpZoXoos-g/TYivs69hwfI/AAAAAAAAF-Q/7XuCk2nVeso/de47574.jpg[/img]

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

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.

[code]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
[/code]

Ich bin echt am verzweifeln...
Die [url=http://www.starbasicfaq.de/Drucken.html#Zweig134]Tipps vom Dannenhöfer[/url] brachten mich leider ebenso wenig weiter wie das [url=http://download.oracle.com/docs/cd/E19535-01/819-1326/index.html]Oracle StarOffice Programmierhandbuch für BASIC[/url].

Ich hoffe ihr habt noch eine Idee.

Viele Grüße
xemu