Jump to content

Printing


ViraFrangos

Recommended Posts

boa tarde, tive aqui a ver 1's topicos sobre o mesmo assunto, topicos do bio, que ajudaram bastante, só que o meu é um pouco diferente, vou tentar explicar, eu faço a venda de um produto, tenho la tudo dados quem compra, etc, desse genero tudo dentro de texts box, vou criar 1 botao de imprimir, agora é, segundo o topico do bio, ele ia buscar os dados a uma data grid , do tipo "Empresa = DataGridView1.CurrentRow.Cells(1).Value" , agora eu preciso é que ele praticamente assuma o que esta dentro das text, será só Cliente = ClienteTextBox.Text?

Cumprimentos.

Link to comment
Share on other sites

ok, acho que nao conseguiste ver a imagem, vou por o codigo

Imports System.Data.OleDb

Imports System.Data

Imports System.Data.Odbc

Imports System.Data.DataTable

Imports System.Drawing.Printing

Public Class VendaProduto

Dim CN As New OleDbConnection()

Dim DA As New OleDbDataAdapter()

Dim DS As New DataSet()

Dim tables As DataTableCollection = DS.Tables

Public dr As OleDbDataReader

Private Cliente, Contribuinte, Telefone, Produto, Preco, Quantidade, PrecoTotal, TipoPagamento As String

Public Sub Factura()

Dim imprimir As New PrintDocument

Dim visualizar As New PrintPreviewDialog

visualizar.Document = imprimir

Cliente = ClienteTextBox.Text

Contribuinte = ContribuinteTextBox.Text

Telefone = TelefoneTextBox.Text

Produto = ComboBox1.Text

Preco = ComboBox2.Text

Quantidade = QuantidadeTextBox.Text

PrecoTotal = PrecoTotalTextBox.Text

TipoPagamento = ComboBox3.Text

AddHandler imprimir.PrintPage, AddressOf imprimir_printpage

Clipboard.SetImage(My.Resources.TECHO_SMARTS)

End Sub

Private Sub imprimir_printpage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

' Cola o logótipo

e.Graphics.DrawImage(Clipboard.GetImage, 150, -100, 550, 500)

' Desenha um rectângulo à volta do documento

Dim rect As New Rectangle(0, 300, 900, 800)

e.Graphics.DrawRectangle(Pens.Gray, rect)

' 300 = coordenadasX :: 250 = coordenadasY

e.Graphics.DrawString("Venda de Produtos", New Font("Comic Sans MS", 20, FontStyle.Bold), Brushes.Black, 300, 250)

' Informações

e.Graphics.DrawString("Cliente: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 350)

e.Graphics.DrawString(Cliente, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 175, 351)

e.Graphics.DrawString("Contribuinte: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 400)

e.Graphics.DrawString(Contribuinte, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 217, 402)

e.Graphics.DrawString("Telefone: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 400)

e.Graphics.DrawString(Telefone, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 217, 402)

e.Graphics.DrawString("Produto: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 450)

e.Graphics.DrawString(Produto, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 162, 451)

e.Graphics.DrawString("Preco: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 400)

e.Graphics.DrawString(Preco, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 217, 402)

e.Graphics.DrawString("Quantidade: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 400)

e.Graphics.DrawString(Quantidade, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 217, 402)

e.Graphics.DrawString("PrecoTotal: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 400)

e.Graphics.DrawString(PrecoTotal, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 217, 402)

e.Graphics.DrawString("TipoPagamento: ", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 40, 400)

e.Graphics.DrawString(TipoPagamento, New Font("Arial", 15, FontStyle.Regular), Brushes.Black, 217, 402)

' Desenha uma linha na horizontal

e.Graphics.DrawLine(Pens.Gray, 40, 525, 500, 525)

e.Graphics.DrawLine(Pens.Gray, 40, 525, 500, 525)

e.Graphics.DrawString("Techno Smarts", New Font("Comic Sans MS", 20, FontStyle.Bold), Brushes.Black, 300, 250)

e.Graphics.DrawLine(Pens.Gray, 40, 525, 500, 525)

e.Graphics.DrawLine(Pens.Gray, 40, 525, 500, 525)

' Data do documento

e.Graphics.DrawString(Date.Now, New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 525, 1120)

End Sub

o que está de errado?

Link to comment
Share on other sites

Nada. Pelo menos não aparenta nada estar errado. Que erro te dá?

Edit: Não faças a última linha de código que o user @legd1991 te disse.

Utiliza antes:

visualizar.ShowDialog()

Edit 2: E vê este tópico: http://www.portugal-a-programar.pt/topic/60864-duvida-sobre-impressao-utilizando-o-systemdrawingprinting/#entry512054

Edited by bioshock
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.