• Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Jean Oenning

Imprimindo rápido como no DOS no VB5

3 posts neste tópico

Existe como imprimir em VB5, como se imprimia no DOS (CLIPPER) antigamente?

Afinal no VB5 bem como em outros programas da Plataforma WIN é muito lenta a impressão. Preciso de ajuda pois o meu antigo sistema em CLIPPER foi substituido por um em VB5 mas a impressão se tornou irritantemente lenta.

Agradeço a quem possa me ajudar.

Jean

Compartilhar este post


Link para o post
Compartilhar em outros sites
JulioHB    0

Open "Lpt1" For Output As #1

Usando o Print direto na impressora, voce poderá enviar os caracteres especias para imprimir condensado ou mudar o passo da impressora. Exemplo:

Print #1, Chr(27) & "0" ' Muda o passo p/ 8 LPP

Print #1, Chr(15) ' Condensado

Print #1, Chr(27) & "E" ' Negrito

Print #1, "" ' Salta uma linha

print #1, "Teste de impressão"

close #1

Recurso aplicado Código para ativar Código para desativar

Condensado chr$(27)&chr(15) chr(8)

Expandido chr$(27)&chr(14) chr$(20)

Negrito chr$(27)&chr(69) chr$(27)&chr(70)

Italico chr$(27)&chr(52) chr$(27)&chr(53)

(código de impressora matricial Epson)

isso q você queria?

Compartilhar este post


Link para o post
Compartilhar em outros sites
raf-sp    0

Método de impressão simples:

(Imprime na Impressora padrão do Windows)

Printer.Print "TEXTO"
Printer.EndDoc

Método de impressão utilizando comandos PCL em uma impressora H.P.:

PReset$ = Chr$(27) + "E"
EnterHPGL2$ = Chr$(27) + "%0B"
EnterPCL5$ = Chr$(27) + "%0A"

Printer.Print PReset$
Printer.Print EnterHPGL2$; "IN;SP1;";
Printer.Print "SD1,21,2,1,4,140,5,0,6,3,7,4148;SS;"
Printer.Print "PA1500,8000;DT*;"
Printer.Print "DI1,-1;"
Printer.Print Chr$(27) + "s14H"
Printer.Print "CF1,1;LBCOPY*;"
Printer.Print EnterPCL5$;
Printer.EndDoc

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso