[Resolvido]Imprimir Cupom

Agravina 27/5/2013, 22:50

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº1

Imprimir Cupom

Mensagem Agravina 27/5/2013, 22:50

Como fazer para imprimir de venda?
http://speedy.sh/scvbS/PdvBarras.rar

Convidado 28/5/2013, 03:41

Convidado

Convidado: Convidado

Mensagem nº2

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 28/5/2013, 03:41

Boas Alexandre... Já não havia trabalhado com isto? Parece que me lembro que fizemos algo uma vez para ti..

De uma pesquisada aqui no Fórum que encontrará vasto material sobre isto.

Cumprimentos.

Agravina 28/5/2013, 20:07

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº3

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 28/5/2013, 20:07

Amigo Piloto não foi para min ,mas um colega para colega do forum com um projeto meu!

Mas tentei adaptar um código,que alias é de sua autoria mas, não está dando certo.
Quando preciso imprimir não acontece nada.
http://speedy.sh/8542J/ProjetoPDVagravina.rar

**Fernando Bueno** 29/5/2013, 03:25

Fernando Bueno

Fernando Bueno: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012

Mensagem nº4

Re: [Resolvido]Imprimir Cupom

Mensagem Fernando Bueno 29/5/2013, 03:25

Boa noite Agravina, não me lembro onde baixei mas talvez te de uma luz.

.................................................................................
Um abraço
Fernando Bueno

O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido

Convidado 29/5/2013, 04:40

Convidado

Convidado: Convidado

Mensagem nº5

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 29/5/2013, 04:40

Boas Alexandre...

Cite quais objetos envolvidos.. e como estás a fazer.

Cumprimentos.

Agravina 29/5/2013, 08:09

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº6

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 29/5/2013, 08:09

Ola Pessoal, estou usando este código para imprimir mas não resulta em nada!
Click no botão e não acontece nada.

Private Sub btnImprimir_Click()
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = Me.Códigovenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
'Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "Forma Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");

'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");

'selecionar items do cupon
Dim StrSQL As String
Dim rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & " And CpImpresso = 0;"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordset com a SQL
Set rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(rs!Descrição, 24); " "; "(" & Format(rs!Codproduto, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); " "; Format$(Format$(rs!ValorUnit, "#,##0.00"), "@@@@@@@@"); _
" "; Format(rs!Quant, "000"); " "; Format$(Format$(rs!Quant, "###000") * (Format$(rs!ValorUnit, "#,##0.00")), "@@@@@@@@")
Print #1, Tab(0); ""
rs.MoveNext
Loop
'Fecha o recorset
rs.Close
'valor total do cupon
'Print #1, Tab(0); String(40, "-");
'Print #1, Tab(16); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
'Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab((40 - Len("SysPDV - Versão 1.0.0 - Venda")) / 2); "SeuSistema - Versão 1.0.0 - Venda";
'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); "-------"
'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
End Sub

Private Sub CodBarras_AfterUpdate()
Dim Posicao As Integer
Dim codigoProduto As Long
Dim qtdProduto As Double

Me.Texto52.Visible = True

Posicao = InStr(CodBarras, "*")

If Posicao > 0 Then
codigoProduto = CLng(Left(CodBarras, Posicao - 1))
qtdProduto = CDbl(Right(CodBarras, Len(CodBarras) - Posicao))
Else
codigoProduto = CLng(CodBarras)
qtdProduto = 1
End If

If IsNull(DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"
Exit Sub
End If
DoCmd.GoToControl "detalhevenda"
DoCmd.GoToRecord , , acNewRec
Forms!frmvendas!detalhevenda!Quant = qtdProduto 'Essa linha aqui que está atribuíndo a quantidade
Forms!frmvendas!detalhevenda!ValorUnit = DLookup("valorunit", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Texto3 = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!txtproduto = DLookup("descrição", "tbl_produtos", "Cod='" & codigoProduto & "'")
Forms!frmvendas!detalhevenda!Codproduto = DLookup("Cod", "tbl_produtos", "Cod='" & codigoProduto & "'")
RunCommand acCmdSaveRecord

'===============================================
'Inicia a impressão do cupom
'===============================================
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = Me.Códigovenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
'Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "Forma Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");

'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");

'selecionar items do cupon
Dim StrSQL As String
Dim rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & " And CpImpresso = 0;"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordset com a SQL
Set rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(rs!Descrição, 24); " "; "(" & Format(rs!Codproduto, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); " "; Format$(Format$(rs!ValorUnit, "#,##0.00"), "@@@@@@@@"); _
" "; Format(rs!Quant, "000"); " "; Format$(Format$(rs!Quant, "###000") * (Format$(rs!ValorUnit, "#,##0.00")), "@@@@@@@@")
Print #1, Tab(0); ""
rs.MoveNext
Loop
'Fecha o recorset
rs.Close
'valor total do cupon
'Print #1, Tab(0); String(40, "-");
'Print #1, Tab(16); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
'Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab((40 - Len("SysPDV - Versão 1.0.0 - Venda")) / 2); "SeuSistema - Versão 1.0.0 - Venda";
'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); "-------"
'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
'Finaliza impressão do cupom
'================================================================
Forms!frmvendas!detalhevenda!chkImpresso = 1
Forms!frmvendas!CodBarras = ""
Forms!frmvendas!CodBarras.SetFocus
Forms!frmvendas!detalhevenda!DetalheCódigovenda = Me.Códigovenda
Me.txtQtd = 1
End Sub

Convidado 29/5/2013, 17:23

Convidado

Convidado: Convidado

Mensagem nº7

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 29/5/2013, 17:23

Alexandre porque está utilizando a rotina em dois eventos diferentes?

Cumprimentos.

Agravina 29/5/2013, 18:26

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº8

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 29/5/2013, 18:26

Na verdade acho que colei os código juntos.

ao clicar do btImprimir
'===============================================
'Inicia a impressão do cupom
'===============================================
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = Me.Códigovenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
'Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "Forma Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");

'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");

'selecionar items do cupon
Dim StrSQL As String
Dim rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & " And CpImpresso = 0;"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordset com a SQL
Set rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(rs!Descrição, 24); " "; "(" & Format(rs!Codproduto, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); " "; Format$(Format$(rs!ValorUnit, "#,##0.00"), "@@@@@@@@"); _
" "; Format(rs!Quant, "000"); " "; Format$(Format$(rs!Quant, "###000") * (Format$(rs!ValorUnit, "#,##0.00")), "@@@@@@@@")
Print #1, Tab(0); ""
rs.MoveNext
Loop
'Fecha o recorset
rs.Close
'valor total do cupon
'Print #1, Tab(0); String(40, "-");
'Print #1, Tab(16); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
'Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab((40 - Len("SysPDV - Versão 1.0.0 - Venda")) / 2); "SeuSistema - Versão 1.0.0 - Venda";
'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); "-------"
'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
'Finaliza impressão do cupom
'================================================================
Forms!frmvendas!detalhevenda!chkImpresso = 1
Forms!frmvendas!CodBarras = ""
Forms!frmvendas!CodBarras.SetFocus
Forms!frmvendas!detalhevenda!DetalheCódigovenda = Me.Códigovenda
Me.txtQtd = 1
End Sub

Convidado 8/6/2013, 14:06

Convidado

Convidado: Convidado

Mensagem nº9

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 8/6/2013, 14:06

Vamos la Alexandre...

Que problema está ocorrendo?

Cumprimentos.

Agravina 8/6/2013, 15:10

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº10

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 8/6/2013, 15:10

Ola piloto, não acontece nada quando clico no botão.

Convidado 12/6/2013, 15:24

Convidado

Convidado: Convidado

Mensagem nº11

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 12/6/2013, 15:24

Bom dia Alexandre.. como anda este tópico... De vez em quando pode nos lembrar.. fazendo um up no mesmo.

Cumprimentos.

Agravina 12/6/2013, 16:39

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº12

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 12/6/2013, 16:39

Piloto ainda não consegui fazer imprimir cupom
Clico no botão e não acontece nada .

Convidado 12/6/2013, 16:52

Convidado

Convidado: Convidado

Mensagem nº13

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 12/6/2013, 16:52

logo verei

Abraços

Convidado 12/6/2013, 17:15

Convidado

Convidado: Convidado

Mensagem nº14

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 12/6/2013, 17:15

Alexandre... Corrija alguns bug's em teus códigos para podermos fazer isto.. ao apertar tecla para digitar o código do produto está dando erro


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF2 Then
 Me.tipo.Value = "A Vista"
DoCmd.OpenForm "frmtroco"
KeyCode = 0
End If
If KeyCode = vbKeyF5 Then
 Me.tipo.Value = "A Vista"
Call Comando32_Click
KeyCode = 0
End If
 Dim stDocName As String

    stDocName = "rel_tbl_itens"
    DoCmd.OpenReport stDocName, acViewNormal
   End If
   If KeyCode = vbKeyF4 Then
 Me.tipo.Value = "Cartão"
Call Comando32_Click
KeyCode = 0
End If
If KeyCode = vbKeyF3 Then
 Me.tipo.Value = "A Prazo"
' DoCmd.OpenForm "frmcliente"
Call Comando32_Click
KeyCode = 0
End If
If KeyCode = vbKeyF9 Then
Me.txtQtd.SetFocus
KeyCode = 0
End If
If KeyCode = vbKeyF8 Then
DoCmd.OpenForm "frmpesquisa"
End If
If KeyCode = vbKeyF10 Then
DoCmd.OpenForm "relatorios"
KeyCode = 0
End If
If KeyCode = vbKeyF11 Then
DoCmd.OpenForm "FrmCadastro"
KeyCode = 0
End If
If KeyCode = vbKeyF7 Then
DoCmd.OpenForm "Frmpesquisa1"
KeyCode = 0
End If
End Sub

Cumprimentos.

Convidado 12/6/2013, 17:17

Convidado

Convidado: Convidado

Mensagem nº15

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 12/6/2013, 17:17

Você tem que ir aplicando códigos e ir compilando o sistema para verificar erros nos mesmo.. senão chegará hora que será impossível corrigir tantos..Se não impossível dará um trabalho descomunal.

Cumprimentos.

Agravina 12/6/2013, 18:47

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº16

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 12/6/2013, 18:47

Perdoe-me enviei uma versão não corrigida, ai está corrigido com erros apenas na impressão!
http://speedy.sh/db3K4/PdvBarras.rar

Convidado 12/6/2013, 20:22

Convidado

Convidado: Convidado

Mensagem nº17

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 12/6/2013, 20:22

Vamos la Agravina...

Você colocou ponto de interrupções no código para ver onde o erro ocorreu?

Ao colocar pontos de interrupção observei que o código data erro ao carregar o recordset, nesta linha:
Set rs = CurrentDb.OpenRecordset(StrSQL)

Dizendo que faltava 1 parâmetro... o que seria isso?
Observe que ele tenta abrir a variável StrSQL que contém a SQL da tabela, esta:

'Instrução SQL para uso no recordset
StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & " And CpImpresso = 0;"

Então fui à tabela verificar os campos.. e notei que na tabela tbl_VendaDetalhe não tem o campo intitulado CpImpresso (Acima em vermelho)
Pontando a SQL está buscando um registro cujo critério está baseado em um campo que não existe na tabela..
O que fiz.. Exclui este critério, ficando assim:

StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & "; "

Logo mais abaixo há uma referência a um objeto não existente no formulário.. desabilite ou exclua:

'Finaliza impressão do cupom
'================================================================
'Forms!frmvendas!detalhevenda!chkImpresso = 1

Cumprimentos.

Agravina 12/6/2013, 20:58

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº18

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 12/6/2013, 20:58

O código ficaria assim?

Private Sub Comando124_Click()
'===============================================
'Inicia a impressão do cupom
'===============================================
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = Me.Códigovenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
'Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "Forma Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");

'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");

'selecionar items do cupon
Dim StrSQL As String
Dim rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & "; "

'Seta o Db
Set Db = CurrentDb
'Seta o Recordset com a SQL
Set rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(rs!Descrição, 24); " "; "(" & Format(rs!Codproduto, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); " "; Format$(Format$(rs!ValorUnit, "#,##0.00"), "@@@@@@@@"); _
" "; Format(rs!Quant, "000"); " "; Format$(Format$(rs!Quant, "###000") * (Format$(rs!ValorUnit, "#,##0.00")), "@@@@@@@@")
Print #1, Tab(0); ""
rs.MoveNext
Loop
'Fecha o recorset
rs.Close
'valor total do cupon
'Print #1, Tab(0); String(40, "-");
'Print #1, Tab(16); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
'Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab((40 - Len("SysPDV - Versão 1.0.0 - Venda")) / 2); "SeuSistema - Versão 1.0.0 - Venda";
'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); "-------"
'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
'Finaliza impressão do cupom
'================================================================
'Forms!frmvendas!detalhevenda!chkImpresso = 1
Forms!frmvendas!CodBarras = ""
Forms!frmvendas!CodBarras.SetFocus
Forms!frmvendas!detalhevenda!DetalheCódigovenda = Me.Códigovenda
Me.txtQtd = 1
End Sub

Assim não funcionou!

Convidado 12/6/2013, 23:12

Convidado

Convidado: Convidado

Mensagem nº19

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 12/6/2013, 23:12

Observe que desta forma está imprimindo no arquivo txt no diretorio da aplicação
para alterar deve desabilitar a linha do cupom.txt
e habilitar a da impressora:


'===============================================
'Inicia a impressão do cupom
'===============================================
Dim nPed, DtVenda, Fpag
'Variável para o número da venda
nPed = Me.Códigovenda
'Variável para a data da venda
DtVenda = Format(Date, "dd/mm/yyyy")
'Variável para o tipo de pagamento
'Fpag = StrTipoPgto

'cupon para impressora termica de 40 colunas
Open "LPT1:" For Output Access Write As #1
'Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Print #1, Tab(0); "TESTE DE EMPRESA"
Print #1, Tab(0); "Rua: " & "erua" & " - " & "ebairro";
Print #1, Tab(0); "ecid" & " - " & "eest"; " Cep: " & "ecep";
Print #1, Tab(0); "Tel: " & "etel";
Print #1, Tab(0); "Site: " & "esite";

Print #1, Tab(0); String(40, "-");
Print #1, Tab(10); "Codigo do Pedido : " & nPed;
Print #1, Tab(0); String(40, "-");
Print #1, Tab(0); "Data :" & DtVenda; " " & " "; "Hora :" & Time;
'Print #1, Tab(0); "Forma Pagamento: " & Fpag
Print #1, Tab(0); String(40, "-");


'cabeça do cupon do items
Print #1, Tab(0); "Descrição "; "(Código)";
Print #1, Tab(0); "Und "; " Pco.Unit."; " Qtd./Peso "; " Vlr.Total "
Print #1, Tab(0); String(40, "-");


'selecionar items do cupon
Dim StrSQL As String
Dim rs As DAO.Recordset
Dim Db As DAO.Database

'Instrução SQL para uso no recordset
StrSQL = "SELECT DetalheCódigoVenda,CodProduto,Descrição,Quant," _
& "ValorUnit, DataVenda FROM tbl_VendaDetalhe WHERE DetalheCódigoVenda = " & Me.Códigovenda & ";"

'Seta o Db
Set Db = CurrentDb
'Seta o Recordset com a SQL
Set rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not rs.EOF
'Imprime os campos: Sigla, Descrição e Código de Barras
Print #1, Tab(0); Left(rs!Descrição, 24); " "; "(" & Format(rs!Codproduto, "0000000000000"); ")" '@ alinha à direita
'Imprime os dados: Sigla, Preço Unitário, Quantidade e SubTotal
Print #1, Tab(0); " "; Format$(Format$(rs!ValorUnit, "#,##0.00"), "@@@@@@@@"); _
" "; Format(rs!Quant, "000"); " "; Format$(Format$(rs!Quant, "###000") * (Format$(rs!ValorUnit, "#,##0.00")), "@@@@@@@@")
Print #1, Tab(0); ""
rs.MoveNext
Loop
'Fecha o recorset
rs.Close
'valor total do cupon
'Print #1, Tab(0); String(40, "-");
'Print #1, Tab(16); "Qtd. Itens : "; Format(Format(Me.txtQtdeItens.Caption, "000"), "@@@@@@@@")
'Print #1, Tab(16); "Total Cumpom R$: "; Format$(Format$(Me.txtTotal, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Dinheiro R$: "; Format$(Format$(Me.Dinheiro, "#,##0.00"), "@@@@@@@@")
'Print #1, Tab(16); "Troco R$: "; Format$(Format$(Me.Troco, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); String(40, "-");

'mensagem de no rodape do cupom
Print #1, Tab((40 - Len("Este Cupon Não Tem Valor Fiscal")) / 2); "Este Cupon Não Tem Valor Fiscal"
Print #1, Tab(0); " "
Print #1, Tab((40 - Len("OBRIGADO PELA PREFERÊNCIA")) / 2); "OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); String(40, "-");
Print #1, Tab((40 - Len("SysPDV - Versão 1.0.0 - Venda")) / 2); "SeuSistema - Versão 1.0.0 - Venda";
'as linhas seguintes são linhas em branco para sair o papel da impressora, adapte-as como desejar
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); " "
Print #1, Tab(0); "-------"
'comando de corte
'Print #1, Chr(27) + "i"
Close #1#
'Finaliza impressão do cupom
'================================================================
'Forms!frmvendas!detalhevenda!chkImpresso = 1
Forms!frmvendas!CodBarras = ""
Forms!frmvendas!CodBarras.SetFocus
Forms!frmvendas!detalhevenda!DetalheCódigovenda = Me.Códigovenda
Me.txtQtd = 1

Agravina 12/6/2013, 23:50

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº20

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 12/6/2013, 23:50

Amigo piloto Com este código o sistema trava e para de responder !

Convidado 13/6/2013, 00:10

Convidado

Convidado: Convidado

Mensagem nº21

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 13/6/2013, 00:10

Apenas coloquei para imprimir.. inverta a desabilitação e veja no arquivo Cupom.txt na pasta do aplicativo se o mesmo está impresso o cupom

'cupon para impressora termica de 40 colunas
'Open "LPT1:" For Output Access Write As #1
Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Cumprimentos.

Agravina 13/6/2013, 00:45

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº22

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 13/6/2013, 00:45

Não funciona não imprimi nada!

**JPaulo** 13/6/2013, 11:53

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº23

Re: [Resolvido]Imprimir Cupom

Mensagem JPaulo 13/6/2013, 11:53

Pitaco;

Entre no VBA e nesse código faça um Break para acompanhar passo a passo o código e ver o que está a acontecer.

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Imprimir Cupom Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Imprimir Cupom Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Imprimir Cupom Folder_announce_new

Instruções SQL como utilizar...

Agravina 13/6/2013, 12:06

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº24

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 13/6/2013, 12:06

como se faz isso?

Convidado 13/6/2013, 13:22

Convidado

Convidado: Convidado

Mensagem nº25

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 13/6/2013, 13:22

Eu já fiz isto Mestre... Aqui está funcionando!

https://dl.dropboxusercontent.com/u/26441349/Agravina_12_06_13.zip

Cumprimentos.

**Jungli** 13/6/2013, 13:34

Jungli

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010

Mensagem nº26

Re: [Resolvido]Imprimir Cupom

Mensagem Jungli 13/6/2013, 13:34

Na chamada do botão coloque:

call cupom ao invés de me.cupom

seria bom também uma mensagem no fim da impressão informando ao usuário o final da operação.

Agravina 13/6/2013, 15:55

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº27

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 13/6/2013, 15:55

O cupom fica oculto como fazer para imprimir direto na impressora assim que clicar em imprimir?

Convidado 13/6/2013, 16:02

Convidado

Convidado: Convidado

Mensagem nº28

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 13/6/2013, 16:02

Boas Agravina.. quando entra no módulo do form... ao clicar na faixa lateral onde se digita, ele fica com uma bolinha vermelha... isso significa que quando correr o seu códipo ele vai fazar um break ai... no menu tem uma setinha verde de Play... basta pressionar e vai dar proseguimento passo a passo.

Cumprimentos.

**Jungli** 13/6/2013, 17:28

Jungli

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010

Mensagem nº29

Re: [Resolvido]Imprimir Cupom

Mensagem Jungli 13/6/2013, 17:28

Manda direto pra impressora

Open "LPT1:" For Output Access Write As #1

Manda direto pro arquivo

Open CurrentProject.Path & "\Cupom.txt" For Output Access Write As #1

Agravina 14/6/2013, 12:21

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº30

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 14/6/2013, 12:21

Quando uso Open "LPT1:" For Output Access Write As #1
O sistema trava!

Convidado 14/6/2013, 21:09

Convidado

Convidado: Convidado

Mensagem nº31

Re: [Resolvido]Imprimir Cupom

Mensagem Convidado 14/6/2013, 21:09

Boas Agravina, infelimente não tenho como testar pois não tenho impressora... Talvez o Jungli possa... Mas o Código é este.

Cumprimentos.

Agravina 15/6/2013, 10:39

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº32

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 15/6/2013, 10:39

Alguém disposto a testar esta impressão para min?

**Jungli** 16/6/2013, 02:26

Jungli

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010

Mensagem nº33

Re: [Resolvido]Imprimir Cupom

Mensagem Jungli 16/6/2013, 02:26

me envie o aplicativo que eu testo....

jungli@ibest.com.br

Agravina 19/6/2013, 12:40

Agravina

Agravina: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010

Mensagem nº34

Re: [Resolvido]Imprimir Cupom

Mensagem Agravina 19/6/2013, 12:40

Bom pessoal resolvi usando este comando simples

stDocName = "rlcupomfiscal"
DoCmd.OpenReport stDocName, acViewNormal
Deu certo assim imprimi cupom direto na impressora
Obrigado a todos!