[ silbas2004 @ 30.01.2011. 06:54 ] @
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)
[ Dusan Kondic @ 30.01.2011. 07:24 ] @
Da li misliš na štampanje na matrični štampač u ASCII modu?
[ silbas2004 @ 30.01.2011. 11:07 ] @
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.
[ aca andrijevic @ 30.01.2011. 11:57 ] @
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)


[ silbas2004 @ 30.01.2011. 14:47 ] @
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]
[ aca andrijevic @ 30.01.2011. 17:23 ] @
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
 
[ silbas2004 @ 31.01.2011. 04:44 ] @
Hvala brate.