USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Impressão de Nota Fiscal usando CR... É viavel???
JCarlos
não registrado
Postada em 19/06/2004 10:37 hs   
Pode usar que funciona, eu uso no meu trabalho. 
     
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
Postada em 19/06/2004 18:49 hs            
ProgrammerMan, acho que eu posso te ajudar quanto as dúvidas sobre os comandos Print e Printer, eu particulamente, uso o print qdo eu não preciso colocar font, cor etc, algo que seja simples para poder imprimir, já o printer dá para dar uma boa enfeitada no seu relatório, abaixo estou colocando os comandos para abrir e fechar o relatório e alguns comentários.
 
 
Obs1: Este é o meu princípio da impressão de uma nota fiscal
 
------ comando print
    Open "Lpt1" For Output As #1 ' início do comando
    Print #1, ' pula uma linha
    Print #1, Tab(51); "X" ' posiciona na coluna 51 para imprimir a letra X
    Print #1,
    Print #1,
    Print #1, Tab(2); LblCFOP.Caption; '+2 'posiciona na coluna 2
    Print #1, Tab(25); TxtCfop.Text '+4 ' posiciona na coluna 25
    close #1 ' fecha o relatório e libera para imprimir.
 
 
 
Obs2: Uso esse comando principalmente na impressora jato de tinta, ex: HP
 
-------- comando printer
    Printer.Scalemode = 4 ' Seleciona o Mode da Impressão, nesse caso caracteres
    Printer.FontSize = 10 ' Tamanho da Fonte
    Printer.FontName ="ARIAL" ' Nome da Fonte
    Printer.FontBold=True ' True deixa a fonte em negrito
    Printer.Print Tab(51); "X" ' posiciona na coluna 51 para imprimir a letra X
    Printer.Print tab(0) ' Pula uma linha
    Printer.Print tab(0)
    Printer.Print Tab(2); LblCFOP.Caption; '+2 'posiciona na coluna 2
    Printer.Print Tab(25); TxtCfop.Text '+4 ' posiciona na coluna 25
    Printer.EndDoc ' fecha o relatório e libera para imprimir.
 
O Básico é isso , se tiver alguma dúvida pode me perguntar que estarei te respondendo dentro dos meus limites, é claro !!!

Abraço e que DEUS te abençõe, espero poder ter te ajudado
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
     
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página