OpenOffice.info

REM *****************************************************************
REM Author: Andrew Pitonyak (email: andrew@pitonyak.org)
REM *****************************************************************
Sub PrintCurrentDocument
Dim mPrintopts1(), x as Variant
Dim oDocument As Object, oPrinter As Object
oDocument = ThisComponent
Dim mPrinter(0) As New com.sun.star.beans.PropertyValue
mPrinter(0).Name="Name"
mPrinter(0).value="204-D" 
oDocument.Printer = mPrinter()
oDocument.Print(mPrintopts1())
End Sub 

Hallo Winfried,

danke für den Tip. Hab's mal versucht. Bekomme das Drucken auf verschiedenen Druckern auch hin.

[code]
REM *****************************************************************
REM Author: Andrew Pitonyak (email: andrew@pitonyak.org)
REM *****************************************************************
Sub PrintCurrentDocument
Dim mPrintopts1(), x as Variant
Dim oDocument As Object, oPrinter As Object
oDocument = ThisComponent
Dim mPrinter(0) As New com.sun.star.beans.PropertyValue
mPrinter(0).Name="Name"
mPrinter(0).value="204-D"
oDocument.Printer = mPrinter()
oDocument.Print(mPrintopts1())
End Sub
[/code]

Was mir jetzt noch fehlt, ist die Auswahl von Datei / Drucken [Eigenschaften]:

● Papierformat
● Quer / Hoch - Format
● Gerät / Papiersorte
● Gerät / Vertraulicher Druck


Gibt's da auch noch Literatur?

[quote="mike6"]einen bestimmten Drucker und die dazu gehörenden Einstellungen ( Schacht, Größe etc.)
zuordnen kann[/quote]

Du findest Beispiele in [url=http://www.pitonyak.org/oo.php]Andrews Makro-Dokument[/url]

Hallo,

ich suche ein Makro, dem ich einen bestimmten Drucker und die dazu gehörenden Einstellungen ( Schacht, Größe etc.)
zuordnen kann. Dieses Makro möchte ich später einer Schaltfläche zuordnen.

Ich habe über "Google" leider nichts dazu gefunden.

Betriebssystem: SUSE LINUX