Jump to content
ViraFrangos

Printing

Recommended Posts

ViraFrangos

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.

Share this post


Link to post
Share on other sites
ViraFrangos

boa tarde, tive a tentar fazer diante das minhas necessidades, entretanto ele nao me faz nada, e devia, vou deixar aqui o cod qe tenho para confirmem o qe estou a fazer de errado.

cumprimentos.

59832698.png

Share this post


Link to post
Share on other sites
ViraFrangos

boa tarde legd, obrigado pelo post, mas podes especificar um pouco mais sff?

Share this post


Link to post
Share on other sites
legd1991

Aqui no forum quando se quer colocar código põe-se entre as tags (code)(/code), trocas os () por []

Share this post


Link to post
Share on other sites
ViraFrangos

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?

Share this post


Link to post
Share on other sites
legd1991

Tenta assim:

public void Print(object _stream)
{
    imprimir = new PrintDocument();		  
    imprimir.PrintPage += new PrintPageEventHandler(imprimir_PrintPage);
    imprimir.Print();
}

Está em C# mas penso que é fácil de perceber

Edited by legd1991

Share this post


Link to post
Share on other sites
ViraFrangos

bom dia bio, ele nao me da erro, simplesmente quando carrego n0 botao de imprimir ele nao faz nada.

Share this post


Link to post
Share on other sites
bioshock

É normal que não faça nada..não estás a dizer, no teu código, para ele te abrir o "processo".

Já te dei a solução no meu último post. Coloca o código depois desta tua linha:

Clipboard.SetImage(My.Resources.TECHO_SMARTS)

Share this post


Link to post
Share on other sites
ViraFrangos

Excelente bio, agora sim, ja me faz a preview do documento. e imprime, faltava aquela linha de codigo,muito obrigado .

podem fechar. :)

Share this post


Link to post
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.