Štampanje forme

Eh ovako...

Radim u VB6... tu i tamo poneki sitni programčić napravim, nisam neki expert pa mi nije stran pojam "program ti ne radi" :D

Ovaj dio koji mene trenutno zajebava je sljedeci :D

Hoću da odštampam formu na A4 format... Znači, treba da piše na svakom dijelu papira ponešto (od gornjeg lijevog do donjeg desnog). Koristio sam ono štampanje forme.... al on odštampa onoliko koliko je forma velika... povećam ja nju dole... maximalno koliko mogu (1024*768) al opet... bude nešto više od polovine papira... A ja hoću na čitav papir :D

Ne znam jesam li bio jasan :D... Znači program na osnovu nekih podataka (koji se unose u prethodnu formu) generiše tu jednu novu formu (bijela... samo sa tekstom -podacima) i sad trebam odštampat tu formu... taj izvještaj... Kako da ga odštampam preko čitavog A4 formata?

usput... kako bih mogao ubaciti neki print preview?



Hvala ;)


Edit: Kako bih mogao vrsiti pozicioniranje stampanja linije, krugova kockica... i sl :D

podesis

Printer.PaperSize = vbPRPSA4 mada cini mi se da po defaultu a4
taj tekst sto ce da bude formi ubacis u textbox,onda sa Printer.CurrentX i Printer.CurrentY podesavas poziciju teksta na ekranu
(pozicija je u twipsima,567 twips-a = 1 cm)
Stampas sa Printer.Print text1.text,ali za svaki textbox moras posebno da podesis currentx i currenty
na kraju dodje Printer.EndDoc

e šefe... al necu ja samo iz text boxa stampat... kontam npr naslov u labeli i ispod toga liniju... pa da mi stampa i labelu i liniju

i de mi malo bolje objasni ovo podesavanje currentx/y... gdje to podesavam


_{[moderator: izbrisan nepotreban citat]}

pazi i ja sam imao taj problem sto nije hteo da stampa preko celog papira,i koliko ja znam to na prost nacin ne mozes reshiti,ako uopste i moze.


Primer:

hoces da oshtampash 3 textbox-a



To sve postavljas na dugme koje ces koristiti da ti izvrsi stampanje

E sad kako stampati liniju ne znam,jer mislim da Printer.Print moze da shtampa samo stringove,a labelu moze Printer.Print Label1.Caption

gde ti je vrednost za currentx i currenty pozicija na papiru,Y se racuna odozgo na dole,a x s leva na desno,u twipsima,to sam ti rekao u prethodnom postu

e hvala za ovo sad sam ukopcao malo... Za liniju cu vidjet sta cu... nego... odštampa mi obicno ovo... uopste ne gleda na font type/size... ima li opcija da primjeni onaj font sto sam koristio u labeli/textboxu



_{[moderator: izbrisan nepotreban citat]}

Cini mi se da i ovo moras da primenis za svaki textbox/label posebno

Printer.FontSize = velicinafonta
Printer.Font = Text1.Font

Mozhe i linija da se "crta" na shtampachu, koristi se Printer.Line funkcija... Parametri su isti kao i za Line, u jedinici koju si postavio za default u Printer objektu...

Ja bih preporuchio da ne koristish fixni prored, vetj da koristish Printer.TextWidth() i Printer.TextHeight() da odredish koliko ti je text koji tjesh da shtampash shirok i visok, u tom fontu i vlichini koji je podeshen u Printer objektu, i onda tako da odredjujesh Printer.CurrentX i Printer.CurrentY vrednosti...

Shto se PrintPreview-a tiche, za to ne postoji lak nachin, tako da bih ti preporuchio da posetish Planet Source Code i potrazhish, ima gomila PrintPreview modula, koje mozhesh da iskoristish...

Potpis

- SKRati link - JaZaKraljevo.rs -

"I have never let my schooling interfere with my education." - Mark Twain

Linija moze da se crta, a moze i da se stampa cela forma.

Linija se crta jako prosto:

Printer.Line (x1,y1)-(x2,y2),rgb(rrr,ggg,bbb), [opciono B ili BF]

a tako moze i circle, paintpicture i sl...

A za stampanje forme mozes da slikas formu sa screencapture(API) i da je onda sa printer.paintpicture prosledis na papir. A mozes i sa hWnd, nego to ti je malo komplikovanije a o tome ima dosta na http://www.planetsourcecode.com . Pa bi najbolje bilo da preuzmes neki primer i pogledas.

[edit] Nisam ni video poslednji post, tako da ova poruka sad kad videh i nema mnogo smisla... :(

Mozda zvuci smesno ali kako odstampati slicicu?

Printer.PaintPicture sourcepicture, xdest, ydest, wdest, hdest, xsrc, ysrc, wsrc, hsrc, vbSrcCopy

Moze li taj kod malo da se skrati? Hocu da odstampam jedan frame ali sav njegov sadrzaj jer ima mnogo ali mnogo cak sam dosao do dela gde mi VB6 objasnjava da ne mogu da dodajem nove objekte jer ih imam max pa sam neke ne bas bitne brisao da bih postavio neke bas bitne.

pozicioniranje svakog texta, labela ili crtice bi bio Sizifov posao!

Ako postoji ikakvo jednostavnije resenje voleo bih da naucim a ako ne zavrsicu sta sam poceo spakovacu stvari i odoh u Kovin