AJUDA COM DESIGN

CAIO.FR.SP 12/01/2010 15:29:50
#331698
Galera to com um problema meio xato
criei um programa para um cliente de loja de roupas
ai tudo certo, tudo fncionando
so um problema
desenvolvi o software para imprimir um cupom fiscal em impressoras de cupom 40 colunas
e la naloja dele ele nao tem dessas e nao quer comprar por enquanto
ele usa uma deskjet mesmo
agora preciso desenvolver um recibo em papel 4 , tipo meia folha
alguem te uma ideia de leyout? eu nao consigo imagina um recibo assim
ajudem por favor.
MADMAX 12/01/2010 16:34:45
#331702
Usa Layout parecido com o que vc ja fez na impressoras de cupom 40 colunas.. assim fica meio que padronizado...
TECLA 12/01/2010 18:01:29
#331713
Dá um PRINT com o LAYOUT atual da impressão pra gente ter uma idéia.
CAIO.FR.SP 12/01/2010 22:15:48
#331729
TECLA.
vou posta o codigo pode ser?

Pensei em desevolver o reciibo no Datareport
so que cai num problema, vou precisar de usar dados contidos em duas tabelas
porque preciso pegar os dados da venda tipo: Codigo, data, valor, forma de pagamento... e os dados relativo ao produtos da venda (codigo,produto,valor unitario, qtd, e valor total)
como consigo isso no data report?
CAIO.FR.SP 12/01/2010 22:17:52
#331730
codigo de impressão do cupom

Public Sub Gerar_Cupom(venda As String, lst As ListView, Total As String, _
                    Recebido As String, Troco As String)
    Dim Empresa As String
    Dim Rua As String
    Dim Fone As String
    Dim Cidade As String
    Dim Cnpj As String
    Dim InscM As String
    
    Define_Impressora LerINI([Ô]Impressora[Ô], [Ô]cupom[Ô], App.Path & [Ô]\config.ini[Ô])
    
    Set pict = Printer
    
    Empresa = LerINI([Ô]Empresa[Ô], [Ô]fantasia[Ô], App.Path & [Ô]\config.ini[Ô])
    Rua = LerINI([Ô]Empresa[Ô], [Ô]endereco[Ô], App.Path & [Ô]\config.ini[Ô])
    Fone = LerINI([Ô]Empresa[Ô], [Ô]fone1[Ô], App.Path & [Ô]\config.ini[Ô])
    Cidade = LerINI([Ô]Empresa[Ô], [Ô]cidade[Ô], App.Path & [Ô]\config.ini[Ô]) & [Ô] - [Ô] & LerINI([Ô]Empresa[Ô], [Ô]estado[Ô], App.Path & [Ô]\config.ini[Ô])
    Cnpj = LerINI([Ô]Empresa[Ô], [Ô]cnpj[Ô], App.Path & [Ô]\config.ini[Ô])
    InscM = LerINI([Ô]Empresa[Ô], [Ô]inscm[Ô], App.Path & [Ô]\config.ini[Ô])
    
    pict.FontName = [Ô]Courier New[Ô]
    [ô]pict.PaperSize
    Fonte 8, False, False
    [ô]pict.Cls
    
    pict.Print String(40, [Ô]-[Ô])                         [ô]Faz uma Linha
    pict.Print Tab((40 - Len(Empresa)) / 2); Empresa   [ô]Centraliza N. Empresa
    pict.Print String(40, [Ô]-[Ô])
    pict.Print Tab((40 - Len(Rua)) / 2); Rua           [ô]Centraliza Rua
    pict.Print Tab((40 - Len(Fone)) / 2); Fone         [ô]Centraliza Dados Adicionais
    pict.Print Tab((40 - Len(Cidade)) / 2); Cidade     [ô]Centraliza Cidade
    pict.Print [Ô] CGC:[Ô]; Tab(21); Cnpj
    pict.Print [Ô] INSC.ESTADUAL:[Ô]; Tab(27); InscM
    pict.Print Tab(2); Format(Date, [Ô]dd/mm/yy[Ô]); [Ô]  [Ô]; Format(time, [Ô]hh:mm:ss[Ô]); Tab(26); [Ô]VENDA[Ô] & Format(venda, [Ô]00000000[Ô])
    Fonte 10, True, False
    pict.Print Tab(10); [Ô]CUPOM   VENDA[Ô]
    Fonte 8, False, False
    [ô]Pict.CurrentY = 2150                               [ô]Vai para a coluna do Form escolhida
    [ô]Fonte 12, False, True
    [ô]Pict.Print Tab(28); [Ô]BR[Ô]
    Fonte 8, False, False
    pict.Print String(40, [Ô]-[Ô])
    
    [ô]PARTE QUE INSERE PRODUTOS NO CUPOM
    Dim des As String
    Dim Qtd As String
    Dim Vlru As String
    Dim Vlrt As String
    pict.Print [Ô] PROD    DESCRIÇÃO[Ô]
    pict.Print [Ô] QTD  x  VLR UNIT                TOTAL[Ô]
    pict.Print String(40, [Ô]-[Ô])
    If lst.ListItems.Count = 0 Then Exit Sub
    For i = 1 To lst.ListItems.Count
        des = lst.ListItems(i).SubItems(1)
        Qtd = Format(lst.ListItems(i).SubItems(2), [Ô]000[Ô])
        Vlru = Format(lst.ListItems(i).SubItems(3), [Ô]currency[Ô])
        Vlrt = lst.ListItems(i).SubItems(4)
        pict.Print [Ô] [Ô]; Format(i, [Ô]000[Ô]); [Ô]     [Ô]; Mid(des, 1, 30)
        pict.Print [Ô] [Ô]; Qtd; [Ô]  x[Ô]; [Ô]  [Ô]; Vlru; Tab(39 - Len(Vlrt)); Vlrt
    Next i
    
    [ô]FECHA O CUMPOM
    Const Msg As String = [Ô]OBRIGADO PELA PREFERÊNCIA[Ô]
    pict.Print String(40, [Ô]-[Ô])
    Fonte 8, True, False
    pict.Print [Ô] TOTAL:[Ô]; Tab(39 - Len(Total)); Total
    Fonte 8, False, False
    pict.Print [Ô] RECEBIDO:[Ô]; Tab(39 - Len(Recebido)); Recebido
    pict.Print [Ô] TROCO:[Ô]; Tab(39 - Len(Troco)); Troco
    pict.Print String(40, [Ô]-[Ô])
    pict.Print Tab((40 - Len(Msg)) / 2); Msg
    
    pict.EndDoc
    
    Define_Impressora LerINI([Ô]Impressora[Ô], [Ô]padrao[Ô], App.Path & [Ô]\config.ini[Ô])
End Sub
CAIO.FR.SP 13/01/2010 00:56:00
#331738
Galera axo que consegui
fiz um relatorio com um form
e depopis imprimo o mesmo com o printform
deem uma olha e digao se ficou legal.
TECLA 13/01/2010 13:28:37
#331767
Quebra o galho!
Tópico encerrado , respostas não são mais permitidas
Voltar