[Resolvido]Imprimir Cupom

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

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.

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

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

Boas Alexandre...

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

Cumprimentos.

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

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

Cumprimentos.

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

Vamos la Alexandre...

Que problema está ocorrendo?

Cumprimentos.

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

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

Cumprimentos.

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

logo verei

Abraços

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.

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.

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

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.

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!

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

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

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.

Não funciona não imprimi nada!

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.

como se faz isso?

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

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


Cumprimentos.

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.

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

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.

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

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

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

Cumprimentos.

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

me envie o aplicativo que eu testo....

jungli@ibest.com.br

Bom pessoal resolvi usando este comando simples
 
 stDocName = "rlcupomfiscal"
    DoCmd.OpenReport stDocName, acViewNormal
Deu certo assim imprimi cupom direto na impressora
Obrigado a todos!

O Fórum agradece o Retorno.