PureBoard

Code: Alles auswählen

puilibnr = OpenLibrary(#PB_Any,"PRINTUI.DLL")

Prototype PrintUIEntry(a, b, c.p-unicode, d)

PrintUIEntry.PrintUIEntry = GetFunction(puilibnr, "PrintUIEntryW")
 
p1$ = "/o /n" + #DQUOTE$ + "Canon BJC-240" + #DQUOTE$

PrintUIEntry(hwnd, hinst, p1$, 0)

CloseLibrary(puilibnr)

Code: Alles auswählen

pn$ = #DQUOTE$ + "Canon BJC-240" + #DQUOTE$
rp2 = RunProgram("RUNDLL32", "PRINTUI.DLL,PrintUIEntry /o /n " + pn$, "", #PB_Program_Open )

;Delay(3000)
;KillProgram(rp2)

Code: Alles auswählen

RUNDLL32 PRINTUI.DLL,PrintUIEntry /o /n  "Canon BJC-240"

Code: Alles auswählen

rp1 = RunProgram("Control", "Printers", "", #PB_Program_Open )

Code: Alles auswählen

printername$ = " /n " + #DQUOTE$ + "KODAK ESP 5 AiO" + #DQUOTE$
 
;Fenster Druckerwarteschlange
pn$ = "/o " + printername$

;Fenster Eigenschaften ( /t2 = Panel 2)
pn$ = "/p /t2 " + printername$

;Fenster Druckeinstellungen
pn$ = "/e " + printername$

;wird Standarddrucker !!!
pn$ = "/y " + printername$

rpg = RunProgram("RUNDLL32", "PRINTUI.DLL, PrintUIEntry " + pn$, "", #PB_Program_Open )