[ legend @ 01.10.2002. 21:49 ] @
Da li neko moze da mi pomogne oko formatiranja podataka
i stampe sa Printer.Print u VB-u?

Osnovne stvari su mi jasne, ali kako napraviti header i footer, ili
kako na osnovu broja stavki (recimo ako predje 30) prebaciti se na drugu stranu i slicno.

E da, muci me formatiranje cena...recimo imam sledece na papiru:

3.200,00
654,00
123,00
1200,50

a zeleo bih:

3.200,00
654,00
123,00
1.200,50

Nadam se da me racumete. Hvala unapred.
[ legend @ 01.10.2002. 21:51 ] @
...ops...forum je trimovao iznose, ali sustina je da budu pravilno potpisani....hvala
[ degojs @ 01.10.2002. 22:19 ] @
Mozes da koristis Format i FormatNumber
Code:

Printer.Print Format(FormatNumber(broj, brojDecimalnihMesta), "@@@@@@@@@@")

Mislim da moras da sam napravis brojac za broj ispisanih linija pa kad dosegnes odredjenu vrednost na iducu stranu prelazis sa:
Printer.NewPage

Naravno, na kraju ide Printer.EndDoc da printanje 'krene' ..

HTH
[ legend @ 01.10.2002. 23:23 ] @
nazalost i dalje mi formatizuje ovako na PAPIRU:

3.200,00
654,00
123,00
1200,50

a treba:

.3.200,00
....654,00
....123,00
.1.200,50

Znaci vb ispravno formatira currency ali ga stampa lose !
[ degojs @ 02.10.2002. 01:41 ] @
Ne znam sta da ti kazem osim da kod mene ispravno radi i na formi (koristeci picture kontrolu) i na papiru. Ovo imam u vise razlicitih programa koji printaju neke izvestaje i provereno radi 100% ispravno.
Koristis li neproporcionalni font (npr. Printer.Font.Name = "Courier New") ???

Najobicnije ? format(formatnumber(11.25,2),"@@@@@@@@@@") meni daje:
.....11.25

pozdrav
[ legend @ 03.10.2002. 17:58 ] @
...uspelo je....da li postoji nacin da centriram text na stranici (jadan red) i da recimo uokvirim neki text (recimo informacije o kupcu)...?

pozdrav
[ jc denton @ 04.10.2002. 23:20 ] @
Moze preko textwidth i textheight, zavisi kako centriras. Recimo :

printer.curentx=(printer.width - textwidth("centar"))/2
printer.curenty=(printer.height - textheight("centar"))/2

printer.print "centar"
[ stojce @ 20.10.2002. 20:41 ] @
Printer.PSet (30 - Len(tdFare.Text), Y): Printer.Print tdFare.Text
Printer.PSet (30 - Len(tdFare1.Text), Y): Printer.Print tdFare1.Text