[Resolvido]Impressão direta

Bom dia

Fiz um programinha de geração de carnê, só que eu gostaria que fosse impresso direto para a impressora a venda para este cliente, quando prescionado o botâo só que esta dando um erro e não sei como resolver.
Neste programinha vai gerar um cupom de venda não fiscal e um carne, eu gostaria que esta impressão fosse direta para a impressora (Epson lx 300).

Preciso de uma luz no relatório direto, no botão que esta escrito impressão direta lpt1.

Grato pela ajuda.

Boa tarde

Teste

É no form Vendas o botão que diz "Imprimir Carnê"

Está assim:
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Mudar para:
DoCmd.OpenReport strDocName, acViewNormal, , strFilter

A vermelho a diferença

Assis, muito obrigado pela informação, mas não é neste botão.

É no botão que esta escrito impressão direta lpt1.

É que eu quero que ela imprima que nem um cupom não fiscal e imprimir direto do relatório numa impressora epson lx 300 da problema e se for impressão direta não, pois ela pega a fonte direta da impressora.

Hunning

Aqui está a função que usava numa loja para imprimir cupons não fiscal.

Estude ela e pegue as partes que você precisa.

Código:


Private Function fImprimeCupom()
  Dim Impressão, X As Integer, frm As Form, ItemVenda As Recordset, z As Variant
  Dim frm1 As Form, txtImp As String
  Set frm = Me.subfrmDetalhesVendas.Form
  Set ItemVenda = frm.RecordsetClone
 
 
     
      Open "LPT1" For Output As #Impressão
     
  End If
 
  Print #Impressão, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "  UTIL CASA E CONSTRUCAO" & Chr$(27) & Chr$(70) & Chr$(20)
  Print #Impressão, Chr$(27) & Chr$(15) & "    R.Joao Pio Duarte Silva, 1124"
  Print #Impressão, "    Corrego Grande Florianopolis"
  Print #Impressão, "    CNPJ: 07.885.158/0001-35"
  Print #Impressão, "    " & Me![DataCaixa] & " "; Format(Me.HoraCaixa, "Short Time") & " -    N. " & Me.IDCaixa & Chr$(18)
  If Me.Cliente <> 0 Then
      Print #Impressão, Chr$(27) & Chr$(69) & "  Cliente: " & DLookup("[Fantasia]", "tblClientes", "[IDCliente]= " & Me.Cliente) & Chr$(27) & Chr$(70)
  End If
  Print #Impressão, Chr$(27) & Chr$(15) & String(54, "-")

  If Me![subfrmDetalhesVendas].Form.RecordsetClone.RecordCount > 0 Then
 
      ItemVenda.MoveFirst
     
     
      For X = 1 To ItemVenda.RecordCount
            Print #Impressão, Tab(0); ItemVenda!IDProduto & " " & Left(ItemVenda!Descrição, 39)
            Print #Impressão, Tab(13 + 5 - Len(Format(ItemVenda!Qtdade, "###.0"))); Format(ItemVenda!Qtdade, "###.0") & "    X"; Tab(30 + 5 - Len(Format(ItemVenda!VUnit, "#0.00"))); Format(ItemVenda!VUnit, "#0.00"); Tab(49 + 5 - Len(Format(ItemVenda!TotalProd, "#0.00"))); Format(ItemVenda!TotalProd, "#0.00")
           
            ItemVenda.MoveNext
      Next X
      Print #Impressão, String(54, "-")
      Print #Impressão, Tab(30); "Sub-Total"; Tab(49 + 5 - Len(Format(Me.Vendas, "#0.00"))); Format(Me.Vendas, "#0.00")
      Print #Impressão, Tab(30); "Desconto"; Tab(49 + 5 - Len(Format(Me.Desconto, "#0.00"))); Format(Me.Desconto, "#0.00")
      Print #Impressão, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69), Tab(18); "Total"; Tab(32 - Len(Me.TotalVenda)); Format(Me.TotalVenda, "#0.00") & Chr$(27) & Chr$(70)
     
      ' se tiver parcelas a imprimir no caixa
     
    If EstáCarregado("frmOrçamentos") Then
        Set frm1 = Forms!frmOrçamentos!subfrm_Parcelas.Form
        Set rsparcelas = frm1.RecordsetClone
     
        If rsparcelas.RecordCount > 0 Then
       
        rsparcelas.MoveFirst
        Print #Impressão, String(54, "=")
        Print #Impressão, ""
        Print #Impressão, " Forma de pagamento: " & Forms!frmOrçamentos!cboFormaPgto
        Print #Impressão, ""
        Print #Impressão, "Parcela"; Tab(30); "Valor"; Tab(45); "Vencimento"
        Print #Impressão, String(54, "-")
       
       
        For X = 1 To rsparcelas.RecordCount
            Print #Impressão, Tab(0); Left$(rsparcelas!bytParcela, 25); Tab(30 + Len("Valor") - Len(Format(rsparcelas!curValor, "#0.00"))); Format(rsparcelas!curValor, "#0.00"); Tab(45 + Len("Vencimento") - Len(Format(rsparcelas!dtVencimento, "dd/mm/yy"))); Format(rsparcelas!dtVencimento, "dd/mm/yy")
            rsparcelas.MoveNext
        Next X
     
        Print #Impressão, String(54, "-")
        Print #Impressão, Tab(0); "Total a prazo"; Tab(30 + Len("Valor") - Len(Format(Forms!frmOrçamentos!TotPrazo, "#0.00"))); Format(Forms!frmOrçamentos!TotPrazo, "#0.00")
        Print #Impressão, ""
        Print #Impressão, String(54, "=")
        Print #Impressão, ""
        Print #Impressão, ""
        Print #Impressão, "              ____________________________________"
        Print #Impressão, "                " & Me.Cliente.Column(1)
        End If
    End If
 
  End If
 
 
 
  '--Conclusão do cupon --------
  Print #Impressão, ""
 
 
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, "Obrigado, Volte sempre !"
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
  Print #Impressão, ""
 
  Close #Impressão
  ItemVenda.Close
 
End Function


Abraços

Balem, muito obrigado pela ajuda, vou aplicar ela, valeu.

Mas se não for muito incomodo, tem como disponibilizar um aplicativo de exemplo, para poder ter uma base melhor.

Veja se este código da certo.... não testei pois não uso aqui no trabalho impressora (Lpt1)...

Dim nPed, DtVenda, Fpag, Reg1
nPed = Forms![fvenda]!VendaID
DtVenda = Forms![fvenda]!VendaData
'cupon para impressora termica de 40 colunas

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

Print #1, Tab(0); "TESTE DE EMPRESA";
Print #1, Tab(0); "Rua: " & "endereco" & " - " & "uf";
Print #1, Tab(0); "cidade" & " - " & "uf"; " Cep: " & "cep";
Print #1, Tab(0); "Tel: " & "telefone";
Print #1, Tab(0); "E-mail: " & "email";

Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(10); "Cupom NRO : " & Me.VendaID;
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(10); " CUPOM NAO FISCAL "
Print #1, Tab(0); "Data :" & Me.VendaData; " " & " "; "Hora :" & Time;
Print #1, Tab(0); "------------------------------------------------";


'cabeça do cupon do items
Print #1, Tab(0); "Cod. "; " Desc.";
Print #1, Tab(0); "Qtd. "; "VL Uni."; " VL Total "
Print #1, Tab(0); "------------------------------------------------";


'selecionar items do cupon
Dim csql As String
Dim bc As DAO.Database
Dim cvendaprod As DAO.Recordset
Set bc = CurrentDb
'csql = "SELECT * FROM Vendas Efetuadas WHERE Código_da_Venda=" & Chr(34) & Me.Código_da_Venda & Chr(34)
Set cvendaprod = bc.OpenRecordset("SELECT tab_VendaProd.VendaProdID, tab_VendaProd.VendaProdVendaID, " _
& "tab_VendaProd.VendaProdProdID, tab_Produto.Descrição, tab_Produto.ProdMedida, " _
& "tab_VendaProd.VendaProdProdQuant, tab_VendaProd.VendaProdProdPreco, tab_VendaProd.VendaProdSubTotal, " _
& "tab_VendaProd.ref FROM tab_VendaProd INNER JOIN tab_Produto ON " _
& "tab_VendaProd.VendaProdProdID = tab_Produto.ProdID " _
& "where VendaProdVendaID = " & Me.VendaID, dbOpenDynaset)

Do While Not cvendaprod.EOF
Print #1, Tab(0); Format(cvendaprod("VendaProdProdID"), "0000"); " " & Format(Left(cvendaprod("Descrição"), 20), "@@@@@@@@@@@@@@@@@@@@");
Print #1, Tab(0); Format(cvendaprod("VendaProdProdQuant"), "000"); " "; _
Format$(Format$(cvendaprod("VendaProdProdPreco"), "#,##0.00"), "@@@@@@@@"); " "; _
Format$(Format$(cvendaprod("VendaProdProdPreco") * cvendaprod("VendaProdProdQuant"), "#,##0.00"), "@@@@@@@@")

cvendaprod.MoveNext
Loop
cvendaprod.Close
'valor total do cupon
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(30); "Total R$: "; Format$(Format$(Me.VendaTotal, "#,##0.00"), "@@@@@@@@")
Print #1, Tab(0); "------------------------------------------------";

'mensagem de no rodape do cupom
Print #1, Tab(10); " Este Cupon Nao Tem Valor Fiscal"
Print #1, Tab(10); " "
Print #1, Tab(10); " OBRIGADO PELA PREFERÊNCIA"
Print #1, Tab(0); "------------------------------------------------";
Print #1, Tab(0); "Nome do Seu aplicativo" + " "; "DH"
Print #1, Tab(0); "------------------------------------------------";

'comando de corte
'Print #1, Chr(27) + "i"
Close #1

Jungli na mosca, value pela ajuda, muito obrigado.

por nada...