Search Forum Home   Visual FoxPro  Office Automation  Rapuns de la im...  Rapuns de la imprimanta    7/14/2010 1:22:03 PM madalinsuny 21 posts Rapuns de la imprimanta  (N/A) Am un program care efectueaza pasii urmatori: 1-seteaza ca default imprimanta dorita de utilizator 2-folosind comanda : ShellExecute(0,'Print',nume_fisier,'','',0) listam fisierul selectat 3-se revine la imprimanta care era initial selectata ca default in windows. Problema este ca la calculatoarele mai slabute sau imprimante mai vechi, revenirea la imprimanta initiala se face inainte ca documentul sa fie listat, deci documentul nu va fi listat pe imprimanta dorita de utilizator , ci cea implicita din windows. Oarecum am rezolvat problema inserand intre pasii 2 si 3 comanda : WAIT "Listez fisierul. Asteptati...." WINDOW TIMEOUT 20 dar daca utilizatorul apasa o tasta ceva, se trece la pasul 3. Pentru a rezolva aceasta problema, eu vad 2 solutii: 1-comanda ShellExecute sa contina si imprimanta la care se va lista 2-imprimanta sa imi spuna cand a terminat de listat Din pacate nu stiu cum as putea face in VFP acest lucru. Orice sugestie este bine venita. Va multumesc!  7/14/2010 2:17:50 PM Daniel Buduru 2141 posts Re: Rapuns de la imprimanta  (N/A) Comanda SET PRINTER din vfp seteaza imprimanta pentru comenzile PRINT si REPORT FORM din vfp. Comanda ShellExecute print foloseste imprimanta implicita a windows. Fie folosesti comenzi vfp, fie schimbi imprimanta implicita windows, fie folosesti ShellExecute cu comanda printto. DECLARE INTEGER ShellExecute IN shell32.dll ;   INTEGER hndWin, ;   STRING cAction, ;   STRING cFileName, ;   STRING cParams, ;    STRING cDir, ;   INTEGER nShowWin APRINTERS(ap) cprinter=["]+ap[1,1]+["] &&aici iei orice imprimanta in afara de cea implicita din windows, ca sa vezi cum merge cfile=getfile() ? ShellExecute(0,"printto",cFile, cPrinter,'',1) Vezi ceva consideratii despre ShellExecute si print aici: http://www.ml-consult.co.uk/foxst-26.htm Daniel Buduru  7/14/2010 2:37:47 PM madalinsuny 21 posts Re: Rapuns de la imprimanta  (N/A) Multumesc! Este ceea ce doream.o sa folosesc ShellExecute cu comanda printto.  7/14/2010 3:00:05 PM Daniel Buduru 2141 posts Re: Rapuns de la imprimanta  (N/A) Totusi nu-mi e clar dece anume printezi in pdf apoi acest pdf la imprimanta? Arhivezi cumva pdf-ul? Daniel Buduru  7/14/2010 3:10:44 PM madalinsuny 21 posts Re: Rapuns de la imprimanta  (N/A)  Nu este vorba de pdf. Dupa ce prelucrez niste fisiere rtf, vreau sa le listez, dar daca sunt mai multe imprimante, utilizator sa isi poata alege la care sa listeze. Problema cu pdf-ul am rezolvat-o folosind alta imprimanta virtuala,Cu pdfcreator nu am reusit sa rezolv problema cu inchiderea print monitor-ului  Page 1 of 1   Visual FoxPro  Office Automation  Rapuns de la im... Flat View Tree View Oldest To Newest Newest To Oldest