[es] - print texta iz visual basica

Admirxx
Meho Puzić
ucenik
mg

Član broj: 183104
Poruke: 2
..toprim.806584-34.bih.net.ba.

Profil

^{31.05.2008. u 19:09 - pre 193 meseci}

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.

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*

+3 Profil

Re: print texta iz visual basica

^{31.05.2008. u 19:25 - pre 193 meseci}

Vec sam jednom dao odgovor na to pitanje, koristis objekat printer.

Ovako:

Code:
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

rgdrajko

Odgovor na temu

Admirxx
Meho Puzić
ucenik
mg

Član broj: 183104
Poruke: 2
..toprim.806584-34.bih.net.ba.

Profil

Re: print texta iz visual basica

^{31.05.2008. u 19:53 - pre 193 meseci}

hvala puno, ali meni treba za printanje računa pa ne moze na A4. Da li ide isto ili.......

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*

+3 Profil

Re: print texta iz visual basica

^{31.05.2008. u 20:44 - pre 193 meseci}

Pa sve je isto.

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

Klikni na papersize u gornjem kodu i pritisni F1 i dobices help za PaperSize.

rgdrajko

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
212.200.221.*

+41 Profil

Re: print texta iz visual basica

^{31.05.2008. u 21:20 - pre 193 meseci}

@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.

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.114.*

+7 Profil

Re: print texta iz visual basica

^{31.05.2008. u 22:43 - pre 193 meseci}

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

HomePage http://www.eurora3d.com

Odgovor na temu