[ jmix23 @ 30.04.2012. 11:33 ] @
| Pozdrav narode, imam jedan mali problem. Treba iz Access-a na jedan event (click on button) da pustim stampu na dva lokalna stampaca (oba na usb). Jedan od ta dva stampaca je default, pa sam probao da promenim default-ni stampac, ali ovaj kod nije pomogao: [code] Dim p as VB.Printer For Each p In VB.Printers If p.DeviceName = “ThePrinterIWantToBeTheDefault“ Then Set Printer = p End If Next [\code] Ovaj kod nije nista uspeo da uradi. Onda sam pronasao da moze preko network object-a: [code] Set WshNetwork = CreateObject("WScript.Network") PrinterPath = "\\Server\Printer" PrinterDriver = "PrinterDriver" WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver WshNetwork.SetDefaultPrinter "\\Server\Printer" [\code] i ovaj kod je uspeo da promeni default stampac i da njemu stampa ALI SAMO DOK JE TAJ STAMPAC BIO PRIKLJUCEN NA DRUGOM RACUNARU. Cim sam ga prebacio na svoj racunar, vise nije stampao, iako je stamoac uredno share-ovan i moglo je navedene putanje (\\Server\Printer) da mu se pristupi. Da li sam negde pogresio i gde? Da li je cela koncepcija pogesna? Ono sto je moja zamisao je da jedan stampac se inicijalno postavi na default, a da se samo kroz tu aplikaciju uzme koje je stampac inicijalno postavljen an default, promeni default stampac, odstampa sta treba i vrati na inicijalni default stampac. Ovo mi je uspevalo sa WScript.Network objektom ali, kao sto rekoh, samo dok je stampac bio prikljucen na drugi komp. Ako postoji neki bolji nacin, tipa da se navede kompletan property stampaca i da se stampa direktno na njega, slobodno mi ukazite na to. Napomenuo bih da nisam bas veliki poznavalac Visual Basic-a (VB6), ali sam dobio da resim ovaj problem pa trazim pomoc od vas iskusnijih. Unapred hvala! |