Amigos estou com um problema de impressão em impressoras matriciais com o VB6.

Estou imprimindo as comandas de meu sistema assim:

Printer.Font = "arial"
Printer.FontSize = intTamanho
Printer.Height = 8000
Printer.Width = 6000
Printer.Print "Teste"
Printer.Print "Teste"
Printer.Print "Teste"
Printer.Print "Teste"
Printer.EndDoc

No windows 98 imprima normal com o tamanho da altura especifica de 8000 + o tamanho do

texto, porém no windows xp imprime sempre do tamanho de uma folha A4 não importando quando

espaço eu delimito, teria alguma manhã para voltar a funcionar como o windows 98????

Valeu galera.

PS: uso impressora epson lx300

Tive vários problemas com essa impressora, o meu sistema tem que imprimir umas etiquetas nessa impressora Epson LX 300. Uso o seguinte código

 

 

    Set objPrinter = GetDefaultPrinter()
   
    MsgBox "Impressora padrao => " + objPrinter.DeviceName & vbCrLf & _
    "Driver da impressora => " + objPrinter.DriverName & vbCrLf & _
    "A porta usada é a => " + objPrinter.Port
 
    Open objPrinter.Port For Output As #1
       Print #1, WNAT
       Print #1, "Proc.:"; Val(T1PROC) & " " & Val(T1ANOP) & " " & "Prot.: " & T1PROT & " " & T1ANOT
              Print #1, " : " & INUM & "-" & ISER & " " & IDTinc & " Mov.: "; AXLOTE
              Print #1, "Req .: " & T1INT
    Close #1
    objPrinter.EndDoc
    Set objPrinter = Nothing

A idéia é tratar como se fosse um arquivo txt, mas voce envia os dados diretamente para a porta da impressora. Funcionou perfeitamente , e é vc que controla todo o processo de impressão sem passar pelos drivers da impressora ou pelo Windows. é direto no buffer da impressora.

 

Espero ter ajudado.

Silvio

Caro Hellyson