IMPRIMIR ARQUIVO TEXTO.
Boa noite, a todos,
estou imprimindo um arquivo texto de uma forma, mas com alguns problemas, vamos ao código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imprimir()
End Sub
Private Sub Imprimir()
ArquivoFonte = New StreamReader(ArqOrigem)
Tamfonte = New Font([Ô]Arial[Ô], 10)
PrintDocument1.DocumentName = [Ô]Cupom[Ô]
PrintDocument1.Print()
ArquivoFonte.Close()
End Sub
Está imprimindo, porem precisa de alguns ajustes:
1º - preciso que imprima sem abrir a janela para clicar no botão de imprimir.
2º - preciso selecionar qual a impressora que irei imprimir este arquivo, tipo:
dim impressora as string = [Ô]\\servidor
ome impressora[Ô]
estou imprimindo um arquivo texto de uma forma, mas com alguns problemas, vamos ao código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Imprimir()
End Sub
Private Sub Imprimir()
ArquivoFonte = New StreamReader(ArqOrigem)
Tamfonte = New Font([Ô]Arial[Ô], 10)
PrintDocument1.DocumentName = [Ô]Cupom[Ô]
PrintDocument1.Print()
ArquivoFonte.Close()
End Sub
Está imprimindo, porem precisa de alguns ajustes:
1º - preciso que imprima sem abrir a janela para clicar no botão de imprimir.
2º - preciso selecionar qual a impressora que irei imprimir este arquivo, tipo:
dim impressora as string = [Ô]\\servidor
ome impressora[Ô]
Faltou esta outra função:
Public Sub Cupom(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim PosicaoVertical As Single = 0
Dim PosicaoHorizontal As Single = 0
Dim Contador As Single = 0
Dim Linha As String = [Ô][Ô]
While Not (Linha Is Nothing)
Linha = ArquivoFonte.ReadLine()
PosicaoVertical = e.MarginBounds.Top + Contador * Tamfonte.GetHeight(e.Graphics)
e.Graphics.DrawString(Linha, Tamfonte, Brushes.Black, PosicaoHorizontal, PosicaoVertical)
Contador += 1
End While
End Sub
Public Sub Cupom(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim PosicaoVertical As Single = 0
Dim PosicaoHorizontal As Single = 0
Dim Contador As Single = 0
Dim Linha As String = [Ô][Ô]
While Not (Linha Is Nothing)
Linha = ArquivoFonte.ReadLine()
PosicaoVertical = e.MarginBounds.Top + Contador * Tamfonte.GetHeight(e.Graphics)
e.Graphics.DrawString(Linha, Tamfonte, Brushes.Black, PosicaoHorizontal, PosicaoVertical)
Contador += 1
End While
End Sub
Alguém???
Sem resposta.
Pelo menos sabem se é possÃvel?
Pelo menos sabem se é possÃvel?
Tópico encerrado , respostas não são mais permitidas