CUPOM NAO FISCAL URGENTE

NILTON.VIANNA 02/11/2012 09:21:43
#413420
Bom dia amigos
Estou com um projeto de vendas simples e preciso imprimir um cupom sem valor fiscal

Já tenho o pedido pronto com textbox e um flexgrid com lançamentos

Qual a melhor opção
print form ou data report?
PAULOOLIVEIRA 02/11/2012 10:29:02
#413424
o PRINT eu acho mais flexivel, o data report mais facil.. os dois funcionam
PAULOOLIVEIRA 02/11/2012 10:31:03
#413425
Corrigindo , entendi errado...

Print form -> sem chance!, muito primario

Pode utilizar entao o data report,

ou

Printer.print


flw
NILTON.VIANNA 02/11/2012 10:43:41
#413426

estou tentando usar DataReport sem usar DataEnvironment
NILTON.VIANNA 02/11/2012 10:56:04
#413427
O poblema é que pula a Folha
NLSOLUCOES 02/11/2012 12:24:15
#413429
Olha Nilton

Se vc quer imprimir cupom ou até mesmo relatório em impressora matricial, você não deve utilizar o DataReport.

Você deve utilizar o Print e ou Printer.print para poder utilizar recursos como parar e ejetar, utilizar recursos da impressora quando necessário.

E outra, a impressão é muito mais rápida, já com DataReport é muito mais lenta.

Segue alguns links ideais e excelentes para o seu trabalho do saudoso Macoratti.

http://www.macoratti.net/printer.htm

http://www.macoratti.net/vb_print2.htm


[]'s
FOXMAN 02/11/2012 12:31:15
#413430
Nilton, sugiro utilizar impressão direta a porta LPT1, utiliznao o Printer, PORéM poderá ocorrer de alguns clientes seus terem impressoras USB.
NILTON.VIANNA 02/11/2012 14:19:09
#413434
alguem tem alguma ideia de como eu jogar isso no DataReport

RS.AddNew
With FG1
Dim i As Long
For i = .FixedRows To .Rows - 1
RS.Fields(0) = .TextMatrix(i, 0)
RS.Fields(1) = .TextMatrix(i, 1)
[ô] RS.Fields(2) = FG1.TextMatrix(i, 4)
Next i
NILSONTRES 02/11/2012 16:50:09
#413438
Datareport para imprimir cupom ? Isso é impossivel, voce vai imprimir, mas não consegue controlar a impressora como se deve.
Faça como o FOXMAN disse, se o cliente utilizar porta USB basta compartilhar a impressora e chama-la pelo nome do compartilhamento.
Busque exemplos de impressão pela porta lpt1, esta cheio aqui no forum.
LOOZE 05/11/2012 21:59:45
#413560 Resposta escolhida 

[ô]porta é o caminho da impressora : poder ser LPT1, OU COM1, ... OU AINDA SE QUISER TESTAR PODER SER [Ô]c:\CONTROLE.TXT[Ô] ELE VAI GERAR UM ARQUIVO TXT NO LOCAL INFORMADO. PODE SER  \\NOME DO COMPUTADOR\NOME IMPRESSORA  OU SEJA O COMPARTILHAMENTO, NESSE caso qdo for uma impressora UBS, faça isso compartilhe e use o caminho.

Open Porta For Output As #1
Print #1, Space(Int(40 - Len([Ô]RECIBO DE PAGAMENTO[Ô])) / 2) & [Ô]RECIBO DE PAGAMENTO[Ô]
Print #1, Space(Int(40 - Len([Ô]NUMERO: [Ô] & [Ô] [Ô] & Codigo.Text)) / 2) & [Ô]NUMERO: [Ô] & [Ô] [Ô] & Codigo.Text
Print #1, [Ô]----------------------------------------[Ô]
Print #1, Space(Int(40 - Len([Ô]VALOR : [Ô] & [Ô] [Ô] & Valor.Text)) / 2) & [Ô]VALOR: [Ô] & [Ô] [Ô] & Valor.Text
Print #1, [Ô] [Ô]
Print #1, [Ô] [Ô]
Texto = [Ô][Ô]
Texto = Funcao.TiraAcento([Ô]Recebi (emos) de [Ô] & UCase(Razao.Text) & [Ô] a importancia de [Ô] & Valor.Text & [Ô]( [Ô] & UCase(ExtValor.Text) & [Ô] ) , referente [Ô] & [Ô] ( [Ô] & Trim$(Referente.Text) & [Ô] ).[Ô], 600)
For x = 1 To Len(Texto)
    Print #1, Trim$(Mid(Texto, x, 40))
    x = x + 39
Next
Print #1, [Ô] [Ô]
Print #1, [Ô] [Ô]
Print #1, Space(Int(40 - Len([Ô]Recebido em [Ô] & DtEmissao.Text)) / 2) & [Ô]Recebido em [Ô] & DtEmissao.Text
Print #1, [Ô] [Ô]
Print #1, [Ô] [Ô]
Print #1, [Ô]----------------------------------------[Ô]
Print #1, [Ô]                                        [Ô]
Print #1, Space(Int(40 - Len(Fantasia_Empresa)) / 2) & Fantasia_Empresa
Print #1, Space(Int(40 - Len(Endereco_Empresa & [Ô], [Ô] & Numero_Empresa)) / 2) & Endereco_Empresa & [Ô], [Ô] & Numero_Empresa
Print #1, Space(Int(40 - Len(Cidade_Empresa & [Ô] - [Ô] & Uf_Empresa)) / 2) & Cidade_Empresa & [Ô] - [Ô] & Uf_Empresa
Print #1, Space(Int(40 - Len([Ô]TEL: [Ô] & Telefone_Empresa)) / 2) & [Ô]TEL: [Ô] & Telefone_Empresa
For x = 0 To Pagina
    Print #1, [Ô] [Ô]
Next
Close #1
Tópico encerrado , respostas não são mais permitidas
Voltar