Domino 9 und frühere Versionen > ND6: Entwicklung

Distiller zum PDF erzeugen

<< < (5/6) > >>

diali:
Wie hast Du den Drucker gewechselt per Win-API geht es unter 200, XP und ich glaube sogar schon unter NT 4 nicht mehr.

Aber mit dem WSH kannst Du zur Laufzeit den Druckertreiber wechseln.
--- Code: ---'Print mit WSH
Sub Initialize
Call myprinter("FreePDF XP")  ' hier Drucker eintragen, es funktionieren auch Netzdrucker
End Sub

Sub myprinter(printer As String)
Dim ws As New NotesUIWorkspace
dim session as New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim PrinterPathAndName As String
Dim objNetwork As Variant
Set db = session.CurrentDatabase
PrinterPathAndName = printer
Set objNetwork = CreateObject("WScript.Network")

objNetwork.SetDefaultPrinter PrinterPathAndName
Print "aktueller Drucker ist jetzt " + Cstr(PrinterPathAndName)

Set uidoc = ws.CurrentDocument
Call uidoc.Print( 1 ) 
End Sub
--- Ende Code ---

jo@chim:
Die weiter oben verlinkte Musterlösung zum Druckerwechsel per API-Direktzugriff funktioniert zumindest hier bei mir unter XP!
Aktualisiert Notes die Druckausgabe zur Script-Laufzeit, wenn ich es per WSH anstosse? (Hab grad keine Zeit das zu testen). Das wäre natürlich:  8)

ozzy1206:

--- Zitat von: jo@chim am 09.05.07 - 12:46:36 ---"A bissla" Lotusscript solltest Du aber schon können ...

--- Ende Zitat ---
Wie jetzt, das geht nicht mit Formelsprache  :o  ;) ?

Ernsthaft:
 Ja, "a bissla" LotusScript kann ich schon   ;D  - nur hatte ich bisher noch nicht das dringende Bedürfnis, von Notes aus Word anzusteuern. Jetzt liegt aber eine entsprechende Anforderung vor, und da ist mir der von Dir genannte Link als Beispiel sehr nützlich !

Danke & Gruß

Ozzy

diali:
... der WSH kann zur Laufzeit den Drucker wechseln.

jo@chim:
Den Drucker oder die Druckausgabe? Aus dem selben Script soll ein uidoc.print(...) gestartet werden. Per API triggert das den Drucker, der beim Start des Scripts eingestellt war ...

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete