Domino 9 und frühere Versionen > Entwicklung

Drucker

<< < (3/4) > >>

eknori (retired):
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 (retired):
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:

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

Ich arbeite in diesem Fall mit Formeln und habe insgesamt 3 Möglichkeiten des druckens installiert und kriege jedesmal eine Auswahl angeziegt!
8)
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....

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete