IMPRIMIR O CONTEUDO DE UMA PICTUREBOX

MIRIDIUS 16/10/2013 20:48:48
#430093
Boa noite pessoal,
Estou precisando de uma dica:
Criei um sistema para impressão de cupom não fiscal de um form exemplo da web, porem o form simula um cupom não fiscal, criei um botão IMPRIMIR só que estou tendo dificuldades em fazer com que o mesmo quando acionado, imprima o conteúdo que esta na picturebox, algum membro do forum poderia por gentileza me ajudar na resolução do problema?

Abraços
MARCELO.TREZE 16/10/2013 21:39:31
#430094 Resposta escolhida
colega por um acaso vc está utilizando printform, que imprime o form todo menos a picturebox, se não qual o código de impressão que possui atualmente
MIRIDIUS 16/10/2013 21:59:42
#430096
Marcelo, segue meu código, porem sem a ação para imprimir a picturebox, não consegui fazer a linha de comando para imprimir o que esta escrito dentro da picturebox.


Public Total As Currency [ô]Total do Cupom
Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const conSwNormal = 1

Private Sub Abrir_Click() [ô]Abre o Cupom
Total = 0
F.Cls
Const Empresa = [Ô]DEPOSITO[Ô]
Const Rua = [Ô]AV. DO CURSINO, 6.888[Ô]
Const Dados = [Ô]Fone (11) 3805 9999[Ô]
Const Cit = [Ô]SÃO PAULO - SP[Ô]

F.Print String(40, [Ô]-[Ô]) [ô]Faz uma Linha
F.Print Tab((40 - Len(Empresa)) / 2); Empresa [ô]Centraliza N. Empresa
F.Print String(40, [Ô]-[Ô])
F.Print Tab((40 - Len(Rua)) / 2); Rua [ô]Centraliza Rua
F.Print Tab((40 - Len(Dados)) / 2); Dados [ô]Centraliza Dados Adicionais
F.Print Tab((40 - Len(Cit)) / 2); Cit [ô]Centraliza Cidade
F.Print [Ô] CGC:[Ô]; Tab(21); [Ô]08.504.908/0001.88[Ô]
F.Print [Ô] INSC.ESTADUAL:[Ô]; Tab(27); [Ô]ISENTO[Ô]
Fonte 12, True, False
F.Print Tab(10); [Ô]CUPOM NÃO FISCAL[Ô]
Fonte 10, False, False
F.Print Tab(2); Format(Date, [Ô]dd/mm/yy[Ô]); [Ô] [Ô]; Format(Time, [Ô]hh:mm:ss[Ô]); Tab(22); [Ô]SWE99999999[Ô];
F.CurrentY = 2150 [ô]Vai para a coluna do Form escolhida
Fonte 12, False, True
F.Print Tab(28); [Ô]BR[Ô]
Fonte 10, False, False
F.Print String(40, [Ô]-[Ô])
F.Print [Ô] Código Produto[Ô]
F.Print [Ô] Qtde Unitátio PreçoTotal[Ô]
F.Print String(40, [Ô]-[Ô])

Botoes (False)
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Fecha_Click() [ô]Fecha Cupom Fiscal
F.Print String(40, [Ô]-[Ô])
F.Print [Ô] Total:[Ô]; Tab(28); Format(Total, [Ô]Currency[Ô])
F.Print String(40, [Ô]-[Ô])
F.Print Tab((40 - Len([Ô]Obrigado pela preferência[Ô])) / 2); [Ô]Obrigado pela preferencia[Ô]
F.Print Tab((40 - Len([Ô]Volte Sempre!!! [Ô])) / 2); [Ô]Volte Sempre!!! Deposito Joaninha[Ô]
F.Print String(40, [Ô]-[Ô])

Botoes (True)
End Sub

Private Sub Fonte(Tamanho As Byte, Negrito As Boolean, Italico As Boolean) [ô]Altera a fonte
F.FontSize = Tamanho
F.FontBold = Negrito
F.FontItalic = Italico
End Sub


Private Sub Imprimir_Click()

End Sub

Private Sub Incluir_Click() [ô]Inclui Produto
F.Print Tab(2); Codigo.Text; Tab(11); Mid(Produto.Text, 1, 25) [ô]Limita a 25 letras
On Error Resume Next
F.Print Tab(5); Qtde.Text; Tab(13); Format(Preco.Text, [Ô]Currency[Ô]); Tab(28); Format(Preco.Text * Qtde.Text, [Ô]Currency[Ô])
Total = Total + (Preco.Text * Qtde.Text)
End Sub

Private Sub Botoes(Vl As Boolean) [ô]Habilita e desabilita os botões
Abrir.Enabled = Vl
Incluir.Enabled = Not (Vl)
Fecha.Enabled = Not (Vl)
End Sub

Private Sub Label1_Click() [ô]Vai para minha home page
[ô]ShellExecute hwnd, [Ô]open[Ô], [Ô]http://www.xxxxxxxx.kit.net[Ô], vbNullString, vbNullString, conSwNo
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = [Ô]&H00FF0000[Ô] [ô]Cor do Link
End Sub

Private Sub Preco_LostFocus() [ô]Formato R$
If Preco = [Ô][Ô] Then Preco.Text = [Ô]R$ 0,00[Ô]
Preco.Text = Format(Preco.Text, [Ô]Currency[Ô])
End Sub
MIRIDIUS 17/10/2013 13:03:28
#430110
Marcelo boa tarde,
Conseguiu pegar a mensagem?
MARCELO.TREZE 17/10/2013 13:23:19
#430112
sim minha pergunta é F é o que? o nome do form ou de algum componente
MIRIDIUS 17/10/2013 13:27:51
#430113
PictureBox1 = F

Ou seja, a picturebox o qual o texto é inserido tem o nome de F


Obrigado!
MARCELO.TREZE 17/10/2013 13:32:49
#430114
to começando a entender, bom vamos lá, primeira tentativa

Private Sub Imprimir_Click()
Printer.PaintPicture F.Picture
Printer.EndDoc
End Sub
MIRIDIUS 17/10/2013 14:25:04
#430117
Obrigado pela diga Marcelo,
Tirei um print o que esta ocorrendo, ou seja, ainda não consegui imprimir o conteúdo do cupom fiscal.


Abraços
JSFF77 17/10/2013 15:40:50
#430121
Boa tarde.

Amigo,

Veja se esse conteúdo pode lhe ajudar: Imprimindo no Visual Basic - o objeto Printer


JSFF77
MARCELO.TREZE 17/10/2013 16:07:25
#430129
Pra não ter dor de cabeça imprime assim

Private Sub Imprimir_Click()
  Total = 0
    Const Empresa = [Ô]DEPOSITO[Ô]
    Const Rua = [Ô]AV. DO CURSINO, 6.888[Ô]
    Const Dados = [Ô]Fone (11) 3805 9999[Ô]
    Const Cit = [Ô]SÃO PAULO - SP[Ô]
    
    Printer.Print String(40, [Ô]-[Ô])                         [ô]Faz uma Linha
    Printer.Print Tab((40 - Len(Empresa)) / 2); Empresa   [ô]Centraliza N. Empresa
    Printer.Print String(40, [Ô]-[Ô])
    Printer.Print Tab((40 - Len(Rua)) / 2); Rua           [ô]Centraliza Rua
    Printer.Print Tab((40 - Len(Dados)) / 2); Dados       [ô]Centraliza Dados Adicionais
    Printer.Print Tab((40 - Len(Cit)) / 2); Cit           [ô]Centraliza Cidade
    Printer.Print [Ô] CGC:[Ô]; Tab(21); [Ô]08.504.908/0001.88[Ô]
    Printer.Print [Ô] INSC.ESTADUAL:[Ô]; Tab(27); [Ô]ISENTO[Ô]
    Fonte 12, True, False
    Printer.Print Tab(10); [Ô]CUPOM NÃO FISCAL[Ô]
    Fonte 10, False, False
    Printer.Print Tab(2); Format(Date, [Ô]dd/mm/yy[Ô]); [Ô]  [Ô]; Format(Time, [Ô]hh:mm:ss[Ô]); Tab(22); [Ô]SWE99999999[Ô];
    Printer.CurrentY = 2150                               [ô]Vai para a coluna do Form escolhida
    Fonte 12, False, True
    Printer.Print Tab(28); [Ô]BR[Ô]
    Fonte 10, False, False
    Printer.Print String(40, [Ô]-[Ô])
    Printer.Print [Ô] Código   Produto[Ô]
    Printer.Print [Ô]    Qtde    Unitátio      PreçoTotal[Ô]
    Printer.Print String(40, [Ô]-[Ô])
    
End Sub
MIRIDIUS 17/10/2013 19:33:41
#430136
Muito bom Marcelo,
Com este codigo, consegui imprimir o cupom gerado dentro do PictureBox, porem o comando nao imprime os itens, respectivos valores e a soma total.





Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar