Imprimindo rápido como no DOS no VB5

[Jean Oenning]

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

[JulioHB]

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?

[raf-sp]

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