kako se printa text u Visual Basicu direktno iz programa. Znači treba mi da kada kliknem na neku KOMANDU text iz textbox-a (koji sam postavio na istu formu kao i KOMANDA) se printa.
print texta iz visual basica
Zaključano
Zakačeno
Vec sam jednom dao odgovor na to pitanje, koristis objekat printer.
Ovako:
Ili malo detaljnije za ispis teksta odredjenim fontom i na odredjenoj poziciji na papiru ovako:
Ovako:
Code:
Printer.Print Text1.Text
Printer.Print Text1.Text
Ili malo detaljnije za ispis teksta odredjenim fontom i na odredjenoj poziciji na papiru ovako:
Code:
Private Sub Form_Load()
Printer.PaperSize = vbPRPSA4 'A4
Printer.Orientation = vbPRORPortrait 'Uspravno
Printer.Font = "ariel"
Printer.Font.Bold = True
Printer.FontSize = 20
Printer.CurrentX = Text1.Left
Printer.CurrentY = Text1.Top
Printer.Print Text1.Text
Printer.Font = "Tahoma"
Printer.Font.Bold = False
Printer.Font.Italic = True
Printer.FontSize = 30
Printer.CurrentX = Text2.Left
Printer.CurrentY = Text2.Top
Printer.Print Text2.Text
Printer.Font = "Courier New"
Printer.Font.Bold = True
Printer.Font.Italic = True
Printer.FontSize = 50
Printer.CurrentX = Text3.Left
Printer.CurrentY = Text3.Top
Printer.Print Text3.Text
End Sub
Private Sub Form_Load()
Printer.PaperSize = vbPRPSA4 'A4
Printer.Orientation = vbPRORPortrait 'Uspravno
Printer.Font = "ariel"
Printer.Font.Bold = True
Printer.FontSize = 20
Printer.CurrentX = Text1.Left
Printer.CurrentY = Text1.Top
Printer.Print Text1.Text
Printer.Font = "Tahoma"
Printer.Font.Bold = False
Printer.Font.Italic = True
Printer.FontSize = 30
Printer.CurrentX = Text2.Left
Printer.CurrentY = Text2.Top
Printer.Print Text2.Text
Printer.Font = "Courier New"
Printer.Font.Bold = True
Printer.Font.Italic = True
Printer.FontSize = 50
Printer.CurrentX = Text3.Left
Printer.CurrentY = Text3.Top
Printer.Print Text3.Text
End Sub
Potpis
rgdrajko
hvala puno, ali meni treba za printanje računa pa ne moze na A4. Da li ide isto ili.......
Pa sve je isto.
Znaci tvoju dimenziju papira definises papir sa:
Klikni na papersize u gornjem kodu i pritisni F1 i dobices help za PaperSize.
Znaci tvoju dimenziju papira definises papir sa:
Code:
Printer.Height = 500 'Twips umesto 500 stavi svoju visinu papira u twipsovima
Printer.Width = 500 'Twips umesto 500 stavi svoju duzinu papira u twipsovima
Printer.PaperSize = vbPRPSUser
Printer.Height = 500 'Twips umesto 500 stavi svoju visinu papira u twipsovima
Printer.Width = 500 'Twips umesto 500 stavi svoju duzinu papira u twipsovima
Printer.PaperSize = vbPRPSUser
Klikni na papersize u gornjem kodu i pritisni F1 i dobices help za PaperSize.
Potpis
rgdrajko
@Admirxx, covece prestani da postavljas ovaj isti topik vise puta, videli smo svi sta hoces - evo i odgovore si dobio, umorio sam se vise od brisanja.
Citat:
goranvuc: @Admirxx, covece prestani da postavljas ovaj isti topik vise puta, videli smo svi sta hoces - evo i odgovore si dobio, umorio sam se vise od brisanja.
:)
Da dodam ... nazovi savet
Kad postavljate pitanje probajte da opisete problem u sto vise detalja. Ovde gore je Rajko nakucao pola strane da bi mu ti posle rekao al ja treba da otstampam racun.... stavi se u njegovu poziciju pa ces da vidis na sta mislim. Inace, ovo sam primetio na dosta tema tako da se ne odnosi na nikog konkretno... neko napise odgovor i potrosi vreme da bi mu ovaj koji je pitao rekao da mu treba nesto drugo.
MS ima kontrolu MSComm koja moze da se koristi izmedju ostalog i za stampanje na comm printerima (oni mali termo printeri sa paralelnim prikljuckom ... mogu da se vide u prodavnicama npr.)
Ja sam to koristio u jednom programu koji je trebao da stampa male tikete (ovo sa printer objektom nisam probao na termo printeru al ne kazem da ne radi ... a ni da radi)
Posto nisi stavio dovoljno podataka toliko od mene
Pozdrav
Potpis
HomePage http://www.eurora3d.com