[es] - Stampanje TXT fajla U Visual basicu,KAKO ??

silbas2004
Radoje Markovic
Subotica

Član broj: 60545
Poruke: 75
78.101.35.*

+1 Profil

Stampanje TXT fajla U Visual basicu,KAKO ??

^{30.01.2011. u 06:54 - pre 160 meseci}

Pozz,Zna li neko kako da se odstampa tekstualni fajl tipa "TEST.TXT" u VB.Ja sam isprogramirao ali stampac prepoznaje po default-u.Ali ja hocu da to ja manuelno definisem,jer imam nekoliko stappaca u mrezi.
Evo koda koji radi,ali stampac je definisan automacki...

Dim piStart As New ProcessStartInfo
With piStart
.FileName = "C:\TEST.TXT"
.Verb = "print"
.WindowStyle = ProcessWindowStyle.Hidden
End With
Process.Start(piStart)

Odgovor na temu

Dusan Kondic
Programer
ZR "Parametar" Ljubovija
Ljubovija

Član broj: 49961
Poruke: 225
*.adsl-a-11.sezampro.rs.

Sajt: www.drinacoding.com

+14 Profil

Re: Stampanje TXT fajla U Visual basicu,KAKO ??

^{30.01.2011. u 07:24 - pre 160 meseci}

Da li misliš na štampanje na matrični štampač u ASCII modu?

Odgovor na temu

silbas2004
Radoje Markovic
Subotica

Član broj: 60545
Poruke: 75
78.101.35.*

+1 Profil

Re: Stampanje TXT fajla U Visual basicu,KAKO ??

^{30.01.2011. u 11:07 - pre 160 meseci}

Jeste na stampac mislim,ali da stampa text koji se nalazi u tom fajlu.Onaj kod koji sam dodao,radi to sto meni treba,ali mi definise stampac automacki,a meni treba da izaberem stampac manuelno,jer ih u mrezi ima nekoliko.

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
93.184.95.*

ICQ: 325309560

+2 Profil

Re: Stampanje TXT fajla U Visual basicu,KAKO ??

^{30.01.2011. u 11:57 - pre 160 meseci}

Mozes da koristis PrinterDialog da bi izabrao stampac:

1. Dodaj:

Code (vbnet):

Imports System.Drawing.Printing

2.U event za kontrolu za stampanje:

Code (vbnet):

Dim dialog As New Windows.Forms.PrintDialog

Dim rezultat As DialogResult = dialog.ShowDialog()

'Izaberi stampac iz dialoga

PrintDocument1.PrinterSettings.PrinterName = dialog.PrinterSettings.PrinterName

If rezultat = Windows.Forms.DialogResult.OK Then

       PrintDocument1.Print()

End If

3.Dodaj PrintDocument kontrolu i dodaj u event PrintPage:

Code (vbnet):

'Otvori .txt file i smesti ga u string

Dim putanja As String = "C:\test.txt"

Dim citac As New System.IO.StreamReader(putanja)

Dim sadrzaj As String

sadrzaj = citac.ReadToEnd

citac.Close()

'Iscrtaj mi to i podesi font, boju itd.

e.Graphics.DrawString(sadrzaj, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 150, 125)

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu

silbas2004
Radoje Markovic
Subotica

Član broj: 60545
Poruke: 75
78.101.35.*

+1 Profil

Re: Stampanje TXT fajla U Visual basicu,KAKO ??

^{30.01.2011. u 14:47 - pre 160 meseci}

Ubacio sam tvoj kod ali ima problem,uspeo sam da podesim na koji stampac treba da izbacuje,ali stampa prazan papir ? ,imas li resenja za ovaj problem ? Ovo je kod koji sada ovo radi.

Dim dialog As New Windows.Forms.PrintDialog
Dim rezultat As DialogResult = dialog.ShowDialog()
Dim putanja As String = "C:\test.txt"
Dim citac As New System.IO.StreamReader(putanja)
Dim sadrzaj As String
sadrzaj = citac.ReadToEnd
citac.Close()
Dim PrintDocument1 As New PrintDocument()
PrintDocument1.PrinterSettings.PrinterName = dialog.PrinterSettings.PrinterName
If rezultat = Windows.Forms.DialogResult.OK Then
PrintDocument1.Print()
End If

_{[Ovu poruku je menjao silbas2004 dana 30.01.2011. u 16:16 GMT+1]}

Odgovor na temu

aca andrijevic
aka LoGaN
Nis

Član broj: 35450
Poruke: 347
93.184.95.*

ICQ: 325309560

+2 Profil

Re: Stampanje TXT fajla U Visual basicu,KAKO ??

^{30.01.2011. u 17:23 - pre 160 meseci}

Ja ne mogu prostije da objasnim od ovog:

1.Proveri da li si dodao na pocetak koda(pre Public Class Form1) ili vec koji:

Code (vbnet):

Imports System.Drawing.Printing

2.Iz toolboxa dodaj komandu PrintDocument

3.U event za koji pozivas komandu stavis samo deo
pod rednim brojem 2 iz moje prethodne poruke.

4.Izaberes PrintDocument1 i u njegov event PrintPage stavis samo
deo pod rednim brojem 3 iz moje prethodne poruke

Code (vbnet):

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        'Otvori .txt file i smesti ga u string

        Dim putanja As String = "C:\test.txt"

        Dim citac As New System.IO.StreamReader(putanja)

        Dim sadrzaj As String

        sadrzaj = citac.ReadToEnd

        citac.Close()

        'Iscrtaj mi to i podesi font, boju itd.

        e.Graphics.DrawString(sadrzaj, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 150, 125)

    End Sub

"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic

Odgovor na temu

silbas2004
Radoje Markovic
Subotica

Član broj: 60545
Poruke: 75
78.101.35.*

+1 Profil

Re: Stampanje TXT fajla U Visual basicu,KAKO ??

^{31.01.2011. u 04:44 - pre 160 meseci}

Hvala brate.

Odgovor na temu