Pa ne radi zato što svojstvo Picture sadrži bitmapu koja je učitana, ali ne i ono što si ti docrtao. Umesto Picture, koristi svojstvo Image. Takođe, trebaš da promeniš i AutoDraw svojstvo u True. Dakle, izmeni tvoj kod da izgleda ovako i trebalo bi da radi
Code:
Picture1.AutoRedraw = True
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
isto tako, kada prebacuješ nešto iz picturebox-a u picturebox... ako staviš
Code:
Picture1.Picture = Picture2.Picture
prebacićeš samo bitmapu koja je učitana u Picture2. Ako hoćeš da iskopiraš sve sa tekstom koji si eventualno dopisao, koristi
Code:
Picture1.Picture = Picture2.Image
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti