Meni uopste nije jasno sta ti ustvari zelis? Kako mislis da razvuces formu da ti stane na ceo list? Na cega bi to licilo ako bi ti ono sto stane na pola strane razvukao na citAVU? Sve bi se izoblicilo, izduzilo i mogu samo da zamislim kako bi izgledalo. A ako bas ne zelis da prihvatis da koristis printer.curentx i printer.curenty onda ti preostaje samo jedno a to mozes koristiti samo ako ce ta aplikacija da radi samo kod tebe kuci. Onda lepo desni klik na desktop--properties--settings pa povecaj rezoluciju pa ce ti se veci deo forme videti na ekranu i samim ti ces i odsstampati vise mada je to zaista glupa i neefikasna metoda. Nego lepo stavi jedan picturebox na formu, razvuci je visinu i sirinu da odgovara dimenziji A4 papira pa kucaj.
Code:
Picture1.AutoRedraw = True
Picture1.CurrentX = 500
Picture1.CurrentY = 2000
Picture1.Print "TEXT"
Picture1.CurrentX = 1500
Picture1.CurrentY = 3000
Picture1.Print "TEXT"
isprobaj ovo i imaces cak i lep printprewiev pre stampanja pa vidis sta tacno pravis
posle kada hoces to sto vidis da odstampas dodas red
Code:
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
i to je to pa uzivaj, videces da je mnogo lepse i da imas bolju kontrolu
ovo 5000 i 2000 su ti pozicije po x i y osi u twipsima. (567 twips-a = 1 cm). Ako ne zelis u twipsima nego bi npr da ti skala bude u cm samo na pocetku koda upisi
Code:
Picture1.Scalemode = vbcentimeters
i skala ce ti biti u cm
onda ces umesto 500 i 2000 npr stavljati 5 i 20 sto ce ti biti 5 cm desno i 30 cm dole. Milim da sam ti pomogao. Probaj pa zakljuci sta je bolje resenje. Pozdrav!
Eh da... isto tako menjas i font(velicinu debljinu itd...)
Kazes Picture1.Font=15
Ustvari samo ukucas picture1. i on ce ti ponuditi sta sve mozes menjati pa ces naci i ostale stvari vezane za font.
[Ovu poruku je menjao Blue82 dana 11.11.2008. u 19:35 GMT+1]
[Ovu poruku je menjao Blue82 dana 11.11.2008. u 19:36 GMT+1]
[Ovu poruku je menjao Blue82 dana 11.11.2008. u 19:36 GMT+1]