OBJETO PINTER

MOREIRA 11/06/2007 12:29:19
#220663
encontrei alguns exemplos ak, mas nao conseguir fazer funcionar.. a duvida é: uso um listview onde adiciono os registros nas seguintes colunas:

Ref,Produto,Qtd,SubTotal
e Total Geral, a e soma de SubTotal

e a Soma de SubTotal

e Quero Agora Imprimir os Conteúdo da ListView

já Consigui imprimir isso ak



Option Explicit
Dim Lp As ListItem
Dim vValor1 As Currency
Private Sub cmdRecibo_Click()
Printer.Print
Printer.Print
Printer.Print
    Printer.Print Tab(8); "S3 BOLSAS & ACESSORIOS"
    Printer.Print Tab(8); "Rua Projetada, S/N, Condominio Marcele"
    Printer.Print Tab(8); "Fone (0xx) 1111-1111"
    Printer.Print Tab(8); "São Luis - Ma"
Printer.Print
Printer.Print
Printer.Print Tab(60); "*** RECIBO DE VENDA ******";
Printer.Print
Printer.Print Tab(8); "Vendedor(a)"; Spc(2); lblVenda.Caption
Printer.Print
Printer.Print Tab(8); "Refer.: "; Spc(5); "Descrição"; Spc(30); "Qtd"; Spc(5); "Vlr.Unitário"; Spc(5); "Sub.Total"
Printer.EndDoc
End Sub
LCSD 11/06/2007 12:45:29
#220668 Resposta escolhida
eu faria algo mais ou menos desta maneira:

 Option Explicit
Dim Lp As ListItem
Dim vValor1 As Currency
dim CountList as double

[c]Private Sub cmdRecibo_Click()
Printer.Print
Printer.Print
Printer.Print
    Printer.Print Tab(8); "S3 BOLSAS & ACESSORIOS"
    Printer.Print Tab(8); "Rua Projetada, S/N, Condominio Marcele"
    Printer.Print Tab(8); "Fone (0xx) 1111-1111"
    Printer.Print Tab(8); "São Luis - Ma"
Printer.Print
Printer.Print
Printer.Print Tab(60); "*** RECIBO DE VENDA ******";
Printer.Print
Printer.Print Tab(8); "Vendedor(a)"; Spc(2); lblVenda.Caption
Printer.Print
Printer.Print Tab(8); "Refer.: "; Spc(5); "Descrição"; Spc(30); "Qtd"; Spc(5); "Vlr.Unitário"; Spc(5); "Sub.Total"
countList = list.listcount - 1
for i=0 to countlist 
    printer.print list.list(list.listindex(i)
next i
Printer.EndDoc
End Sub


Neste meu FOR, estou imprimindo o que está no LIST por completo, aí é contigo, fazendo MIDÂÂ's para ajustar o conteúdo do seu LIST na posição correta aonde deverá ser impresso o conteúdo.
[/c]
MOREIRA 11/06/2007 13:12:39
#220679
bom, LCSD. achei algo parecido, como esse q vc colocou e é exatamente a minha dificudade... é na formatação.... nas seguintes colunas no list.. com os itens Adicionado

Ref,produto,Qtd,Sub.total
USUARIO.EXCLUIDOS 11/06/2007 14:32:45
#220697
isso nao seria ECF neh ?
MOREIRA 11/06/2007 15:26:42
#220711
NÃO, IMPRESSORA NORMAL.EXEMPLO: JATO DE TINTA
MOREIRA 11/06/2007 17:02:46
#220753
alguem mais pode ajudar ?
MOREIRA 12/06/2007 11:02:10
#220863
por favor, amigos uma ajudinha....
Tópico encerrado , respostas não são mais permitidas
Voltar