Search Forum Home   Visual FoxPro  Baze de date, tabele, view-uri si indecsi  Printare formul...  Printare formular    2/20/2011 9:04:57 PM JohnnyPK22 31 posts Printare formular  (N/A) Deci as vrea sa stiu cum as putea sa fac sa pot printa un formular. De exemplu in proiectul meu cand selectez un rand din tabel sa pot selecta o optiune de printare si sa imi printeze doar acel rand cu textele de la coloanele respective. Tot ce am reusit eu sa fac este sa printez toate randurile ca un fel de lista. Eu am nevoie sa fie ceva de genul unui formular. Aveti idee cum as putea face asa ceva ?  2/21/2011 9:10:17 AM aflorin 840 posts Re: Printare formular  (N/A) 1. daca ai reusit deja sa printezi toata tabela e bine 2. daca ai folosit pentru asta generatorul de rapoarte din VFP, e si mai bine 3. tot ce trebuie sa faci este sa folosesti acelasi raport, iar in loc de tabela sa iei datele dintr-un cursor care are doar o singura inregistrare - cea care te intereseaza 4. era mai bine daca puneai problema asta la sectiunea de rapoarte Florin Aparaschivei - Iasi  2/21/2011 10:36:07 AM JohnnyPK22 31 posts Re: Printare formular  (N/A) nu am reusti sa faci nici un raport ... imi poti explica pasii pe care ar trebui sa ii fac ? deci vreau ca atunci cand o intrare dintr-un tabel este selectata(am setat grid-ul pentru o singura selectare - nu se pot face multiple selectari), sa mi se activeze 'Print' din <File> si cand dau click dreapta sa am optiune de printare de asemenea(functia pentru click dreapta este facuta - am deja Adauga, Edit, Del si refresh pt ea - doar trb sa adaug Print) ... ce ma intereseaza este ce cod ar trb sa pun si unde ... sunt incepator si invat chestiile astea pe parcurs :D PS: N-am stiut de categoria rapoarte, imi cer scuze, daca se poate si se doreste, se poate muta la acea categorie.  2/21/2011 11:04:16 AM aflorin 840 posts Re: Printare formular  (N/A) sa presupunem ca tabela ta se numeste Tabela1 si are drept cheie primara coloana Camp1 select Tabela1 nRecno = recno() lCamp1 = Tabela1.Camp1 select * from tabela1 where Camp1 = lCamp1 into cursor crsRaport select crsRaport ** aici vine comanda de listare use in select("crsRaport") select Tabela1 go nRecno Florin Aparaschivei - Iasi  2/21/2011 11:45:11 AM JohnnyPK22 31 posts Re: Printare formular  (N/A) am creat o noua metoda "printbon" in formul unde am tabelul meu. am apelat metoda in metoda clickdreapta. am modificat numele tabelei si a cheiei dar tot nu imi afiseaza nimic ... selectez print si nu apare ... Am acuma in metoda "printbon" urmatorul cod: select bon nRecno = recno() lid = bon.id select * from bon where id = lid into cursor rapbon select rapbon ** aici vine comanda de listare use in select("rapbon") select bon go nRecno tabela mea este "bon" si cheia primara "id"  2/21/2011 1:22:45 PM aflorin 840 posts Re: Printare formular  (N/A)  JohnnyPK22 wrote ** aici vine comanda de listare Si care e acea comanda de listare pe care ai folosit-o? Florin Aparaschivei - Iasi  2/21/2011 1:52:57 PM JohnnyPK22 31 posts Re: Printare formular  (N/A) am crezut ca ce e sub comentariul ala e comanda de listare :) nu stiu cum ar trebui sa arate comanda de listare :( ... la ce te referi ? Totusi as vrea sa mai explic o data cum e programul meu ... Am 2 form-uri : listabon - unde am afisata tabela bon si functia de cautare ; si listaclienti - unde am afisata tabela clienti si functia de cautare Pentru fiecare form din cele 2 mai am un form pentru completarea datelor - fisa(pentru listaclienti) si boncmd(listabon) Ca sa accesez formul pentru fiecare din cele 2 form-uri principale, cu tabelele, am facut un meniu shortcut(activat de click-dreapta) unde am posibilitatea de Adaugare, Editare, Stergere, Refresh. Pentru fiecare optiune am creat o noua metoda in form: newbon(),editbon(),delbon() [la refresh am folosit metoda implicita]; idem pentru clienti. Acuma eu vreau sa adaug optiunea de Print pentru fiecare form si sa fac metodele unde sa bag codul pentru fiecare. Pentru listabon -> printbon() Pentru listaclienti -> princlient() Dar sa imi afiseze doar selectia curenta, adica doar randul pe care dau eu clickdreapta si selectez print. Nu stiu cum as putea face chestia asta...sau ce cod sa pun pentru **aici vine comanda de listare. Pe net nu prea am gasit tutoriale pentru chestia asta...toate sunt pentru afisarea tabelului intreg cu toate intrarile sub forma de lista.  2/21/2011 2:51:41 PM aflorin 840 posts Re: Printare formular  (N/A)  JohnnyPK22 wrote Pe net nu prea am gasit tutoriale pentru chestia asta...toate sunt pentru afisarea tabelului intreg cu toate intrarile sub forma de lista. Foarte bune alea. Aplici codul de listare de acolo pentru cursorul tau denumit crsRaport. Mai multe despre rapoarte gasesti aici: http://msdn.microsoft.com/en-us/library/sy7t33c8(v=vs.80).aspx Ca principiu, iti desenezi un raport cu report designer si il rulezi (acolo unde eu am pus **) cu REPORT FORM numeRaport.frx TO PRINTER. Florin Aparaschivei - Iasi  2/21/2011 4:35:42 PM JohnnyPK22 31 posts Re: Printare formular  (N/A) Am facut un raport in wizard si am adugat codul la metoda mea pentru printare, dar nu cred ca merge cum trebuie. Imi arata la Printer ca are un document in asteptare, dar programul nu mi-a deschis nici un fel de preview ... trebuie sa adaug eu optiunea asta, sau nu am facut ceva bine ?  2/21/2011 4:45:19 PM JohnnyPK22 31 posts Re: Printare formular  (N/A) am reusit pana la urma sa testez raportul ala, am dat preview direct de la imprimanta dar tot la fel imi afiseaza, toate inregistrarile din tabel, nu doar pe cea curenta asta e codul pentru printbon() select bon nRecno = recno() lid = bon.id select * from bon where id = lid into cursor crsRaport select crsRaport REPORT FORM rapbon.frx TO PRINTER use in select("crsRaport") select bon go nRecno  2/21/2011 9:04:41 PM JohnnyPK22 31 posts Re: Printare formular  (N/A) gata am reusit :) dupa muulte cautari pe internet am gasit cum trebuie facut :) codul folosit este acesta select bon nRecno = recno() lid = bon.id select id from bon where id = lid into cursor crsRaport select crsRaport REPORT FORM rapbon.frx FOR id = lid TO PRINTER PROMPT NODIALOG PREVIEW use in select("crsRaport") SELECT bon go nRecno Multumesc mult pentru tot ajutorul.  2/22/2011 12:01:24 AM JohnnyPK22 31 posts Re: Printare formular  (N/A) Apropo, as putea face intr-un raport sa am 2 pagini diferite ? Pe o pagina sa am informatiile din tabel ... si pe alta pagina sa am un text ... Adica atunci cand dau print fisa sa imi printeze direct cele doua pagini, nu sa ma mai duc in alta parte si sa dau print separat si la cealalta pagina... Daca da cum anume as putea face asta ?  2/22/2011 7:22:48 AM aurelian ungureanu 232 posts Re: Printare formular  (N/A) Numai atat nu era bine ? && cu grid in formular ,pozitionare pe un rind report form rapbon preview FOR rind = cevrei  2/22/2011 9:00:03 AM aflorin 840 posts Re: Printare formular  (N/A)  JohnnyPK22 wrote Apropo, as putea face intr-un raport sa am 2 pagini diferite ? Pe o pagina sa am informatiile din tabel ... si pe alta pagina sa am un text ... Adica atunci cand dau print fisa sa imi printeze direct cele doua pagini, nu sa ma mai duc in alta parte si sa dau print separat si la cealalta pagina... Daca da cum anume as putea face asta ? Se poate face. Pui textul care sa apara pe a doua pagina in banda de Summary, faci banda de Summary mare-mare si te joci din setarile raportului pentru a forta ca sa apara pe a doua pagina. Florin Aparaschivei - Iasi  2/22/2011 9:01:27 AM aflorin 840 posts Re: Printare formular  (N/A)  aurelian ungureanu wrote Numai atat nu era bine ? && cu grid in formular ,pozitionare pe un rind report form rapbon preview FOR rind = cevrei Se putea si asa, evident. Doar ca eu nu am fost niciodata un mare fan la modul asta de printare - am preferat intotdeauna un raport general si sa ma joc din date, manipuland cursorul pentru a obtine ceea ce vreau. Florin Aparaschivei - Iasi  2/22/2011 9:15:22 AM Daniel Buduru 2335 posts Re: Printare formular  (N/A)  aflorin wrote  aurelian ungureanu wrote Numai atat nu era bine ? && cu grid in formular ,pozitionare pe un rind report form rapbon preview FOR rind = cevrei Se putea si asa, evident. Doar ca eu nu am fost niciodata un mare fan la modul asta de printare - am preferat intotdeauna un raport general si sa ma joc din date, manipuland cursorul pentru a obtine ceea ce vreau. Dupa cum se prezinta lucrurile,  reportul a fost facut pe tabela bon, campurile sunt prefixate cu aliasul bon iar tabela este prinsa in report.dataenvironment. De aceea a ignorat cursorul obtinut prin select si nu a functionat corect decat cu clauza for in comanda report. Pentru a putea fi utilizat cu orice cursor, trebuie eliminata tabela din dataenvironment si aliasul din campuri. Daniel Buduru  2/22/2011 9:38:42 AM JohnnyPK22 31 posts Re: Printare formular  (N/A) mersi mult de sfaturi , am facut cu banda summary pentru a baga o a 2-a pagina :)  Page 1 of 1   Visual FoxPro  Baze de date, tabele, view-uri si indecsi  Printare formul... Flat View Tree View Oldest To Newest Newest To Oldest