Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 6 odgovora
  • 3.075 pregleda

Najnovija ↓

Stampanje TXT fajla U Visual basicu,KAKO ?? 30.01.2011. u 07:54 · pre 191 mesec #1
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)
Re: Stampanje TXT fajla U Visual basicu,KAKO ?? 30.01.2011. u 12:07 · pre 191 mesec #3
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.
Re: Stampanje TXT fajla U Visual basicu,KAKO ?? 30.01.2011. u 12:57 · pre 191 mesec #4
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)


Potpis
"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic
Re: Stampanje TXT fajla U Visual basicu,KAKO ?? 30.01.2011. u 15:47 · pre 191 mesec
izmenjeno 1 put, poslednji put silbas2004 30.01.2011. u 16:16
  1. silbas200430.01.2011. u 16:16zapis iz teksta poruke
#5
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
Re: Stampanje TXT fajla U Visual basicu,KAKO ?? 30.01.2011. u 18:23 · pre 191 mesec #6
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
 
Potpis
"Ne menjaj nesto sto te sasvim dobro sluzi, ne trazi leba preko pogace" - Aleksandar Andrijevic
Sviđa mi se1
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme