Drucker

[EMO]

:-/Hallo Notes Leute,
Weiß jemand wie man alle installierten Durucker in einer Liste ausgeben  und einen wählen kann um zu drucken.
Danke im voraus.
Mit freundlichem Gruss

[eknori]

yoo, weiss ich   guckst du hier

http://eknori.dyndns.org/knowledge/devidea.nsf/703257f00a483fb180256879002c0178/a3ab8ca934b43a0a802568e70027753e?OpenDocument&Highlight=0,enumerate,printer

ist zwar für VisualBasic, lässt sich aber an LS anpassen

eknori

[EMO]

vielen Dank Eknori. Bemerkenswert ist es dass du so schnell helfen kannst. Ich hoffe ich schaffe es in LS umzuwandeln...
:-/
Danke

[eknori]

Ich schau nachher mal zuhause; hab das teil irgendwo schon mal eingebaut (weiß nur nicht mehr wo). Muss wohl unter ..... Wie hiess das noch gleich ?? ähhh, was wollte ich sagen

eknori

[EMO]

Das wäre SUPERRR....!!!!
Danke Eknori

[adminnaddel]

:-/ wenn ich da mal was fragen darf?
ich bin sicher das Du das nicht meinst!,
aber wenn ich die Akrtion ausführe:
@Command([FilePrint];"";"";"";"";"";"";"")
kriege ich eine Auswahlfenster meiner ganzen Drucker die zur Verfügung stehen und ich wähle einen aus!
Aber das meinst Du bestimmt nicht, war ja auch nur ein Gedanke
Gruß

[EMO]

Ja das meine ich aber wenn ich diese Aktion Ausführe druckt er bei mir ohne etwas zu fragen...
mfg

[adminnaddel]

Mal ganz dumm gefragt:
dann ist aber auch nur 1 Printer install!?
Gruß

[EMO]

Mein poblem ist, Ich drucke ein Dokument über Word. Es wird immer der Standarddrucker gewählt. Ich brauche eine Liste der Drucker so dass ich wählen kann.daher funktioniert mit fileprint nicht.....

[EMO]

was ich brauche ist etwa wie @Command([FilePrintSetup]. Nur hier kann ich leider nicht die ausgewählte Zeile nicht als String ausgeben lassen. Der gibt mir immer eine 1 zurück....

[eknori]

Also nachdem ich mal ne Nacht drüber geschlafen habe, kam ich zu der Ansicht, das

Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Call uidoc.Print
End Sub

wohl die einfachste Lösung ist.

Sind mehrere Drucker installiert, wird der Auswahldialog  geöffnet und du kannst einen Drucker auswählen.

Ich hoffe, das ist das, was du brauchst.

eknori

[adminnaddel]

@Eknori

ohne dein Script ausprobiert zu haben, aber was macht dein Script anders als:
@Command([FilePrintSetup])
@Command([FielPrint];"";"";"";"";"";"")

Gruß

[eknori]

hast recht; macht auch nix anderes. Ich denke mal, das löst EMOs Problem, aber wenn nur 1 Drucker installiert ist, was soll dann in der "Auswahl" angezeigt werden.

eknori

[adminnaddel]

Ein letztes Mal melde ich mich zu diesem Thema zur Antwort:
Auch ich hatte schon geposted:

Mal ganz dumm gefragt:
dann ist aber auch nur 1 Printer install!?
Gruß

Ich arbeite in diesem Fall mit Formeln und habe insgesamt 3 Möglichkeiten des druckens installiert und kriege jedesmal eine Auswahl angeziegt!

Gruß @All

[EMO]

Hallo Eknori,
Die vb Code die du mir geschickt hast funktioniert bis auf diese funktion:

Private Declare Function GetProfileString Lib "kernel32" _
  Alias "GetProfileStringA" _
 (ByVal lpAppName As String, _
  ByVal lpKeyName As String, _
  ByVal lpDefault As String, _
  ByVal lpReturnedString As String, _
  ByVal nSize As Long) As Long
ich brauche den IpReturnedString. Gibt aber immer wieder leer String aus. Im VB funktioniert, nicht aber in LS. Also der Abruf ist z.B:
ret = Space$(8102)
nSize = Len(ret)
Call GetProfileString ("PrinterPorts","","",ret,nsize)
hier ist ret immer leer, wobei in VB immer voll ist....

[eknori]

Mach mal ein Trim auf das ret

Call GetProfileString ("PrinterPorts","","",Trim(ret),nsize)

eknori

[EMO]

funktioniert nicht.

[EMO]

Ich glaube ich habe mein Fehler, dass heisst nur festgestellt. Der Parameter in VB "vbNullString" was ist das. besser gefragt was muss ich in LS anstelle als Parameter geben?
mfg