IMPRIMIR TEXTO DE LABELS COM PRINTDOCUMENT
Olá a todos. Estou concluindo uma aplicação que irá controlar um cinema.
Preciso fazer com que ao clicar no botão imprimir ele imprima mais ou menos desse modo:
(uma imagem qualquer)
Filme: [Ô]nome do filme que está em uma label[Ô]
Data: [Ô]data do filme que está em outra label[Ô]
Poltronas: [Ô]que está em outra label[Ô]
REGULAMENTO:
[Ô]aqui um texto padrão para todos[Ô]
[Ô]código de barras[Ô]
Eu estou usando uma impressora Bematech modelo MP-4000. Alguém pode me ajudar?
Obrigado.
Preciso fazer com que ao clicar no botão imprimir ele imprima mais ou menos desse modo:
(uma imagem qualquer)
Filme: [Ô]nome do filme que está em uma label[Ô]
Data: [Ô]data do filme que está em outra label[Ô]
Poltronas: [Ô]que está em outra label[Ô]
REGULAMENTO:
[Ô]aqui um texto padrão para todos[Ô]
[Ô]código de barras[Ô]
Eu estou usando uma impressora Bematech modelo MP-4000. Alguém pode me ajudar?
Obrigado.
Consegui com o seguinte código
Private Sub PrintDocument_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage
Try
Dim impressao As New tbCADEIRAS
e.Graphics.DrawImage(Image.FromFile(gstrLogo), 40, 10)
e.Graphics.DrawString([Ô]Filme: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 80)
e.Graphics.DrawString(filmeLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 80)
e.Graphics.DrawString([Ô]InÃcio: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 120)
e.Graphics.DrawString(inicioLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 120)
e.Graphics.DrawString([Ô]Término: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 160)
e.Graphics.DrawString(terminoLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 160)
e.Graphics.DrawString([Ô]Poltronas: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 210)
e.Graphics.DrawString(poltronasLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 210)
e.HasMorePages = False
Catch ex As Exception
MessageBox.Show([Ô]Houve um erro com o servidor. Por favor. Tente novamente[Ô])
End Try
End Sub
só falta colocar e ajustar o regulamento e o código de barras que ainda tenho que descobrir
Private Sub PrintDocument_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage
Try
Dim impressao As New tbCADEIRAS
e.Graphics.DrawImage(Image.FromFile(gstrLogo), 40, 10)
e.Graphics.DrawString([Ô]Filme: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 80)
e.Graphics.DrawString(filmeLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 80)
e.Graphics.DrawString([Ô]InÃcio: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 120)
e.Graphics.DrawString(inicioLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 120)
e.Graphics.DrawString([Ô]Término: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 160)
e.Graphics.DrawString(terminoLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 160)
e.Graphics.DrawString([Ô]Poltronas: [Ô], New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 10, 210)
e.Graphics.DrawString(poltronasLabel.Text, New Font([Ô]Times New Roman[Ô], 14, FontStyle.Bold), Brushes.Black, 100, 210)
e.HasMorePages = False
Catch ex As Exception
MessageBox.Show([Ô]Houve um erro com o servidor. Por favor. Tente novamente[Ô])
End Try
End Sub
só falta colocar e ajustar o regulamento e o código de barras que ainda tenho que descobrir
Tópico encerrado , respostas não são mais permitidas