Boa tarde a todos.

criei esta rotina para imprimir em boleto bancário, porém na minha impressora, (Epson LX 300 +) funcionou perfeitamente, ja na impressora do cliente os caracteres não saem comprimidos, (Epson LX 300)  , abaixo dixei o código compléto que usei.

 

  Open "LPT1" For Output As #1
   
    For I = 1 To Grid.Rows - 1
   
        Grid.Row = I
        Grid.Col = 0
        col0 = Grid.Text
       
        Grid.Row = I
        Grid.Col = 1
        Col1 = Grid.Text
       
        Grid.Row = I
        Grid.Col = 2
        Col2 = Grid.Text
       
        Grid.Row = I
        Grid.Col = 3
        Col3 = Grid.Text

        Grid.Row = I
        Grid.Col = 4
        Col4 = Grid.Text

        Grid.Row = I
        Grid.Col = 5
        Col5 = Grid.Text
       
        Grid.Row = I
        Grid.Col = 6
        Col6 = Grid.Text

        Grid.Row = I
        Grid.Col = 7
        Col7 = Grid.Text
       
       

        Print #1, Chr(27) & Chr(69)
        Print #1, Chr(27) & Chr(15); Tab(95); Col3
        Print #1, Chr(27) & "0"
        Print #1, ""
        Print #1, ""
        Print #1, ""
       
        Print #1, Tab(3); col0; Tab(25); Col1; Tab(51); Col2
        Print #1, ""
        Print #1, Tab(95); Col4
        Print #1, ""
        Print #1, ""
        Print #1, Tab(3); Col5
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, Tab(15); Col6
        Print #1, ""
        Print #1, Tab(20); Col7
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
        Print #1, ""
    Next
Close #1

 

Agradeço

Boa Tarde!

Verifica se as fontes selecionadas nas duas impressoras são as mesmas, pois eu ja tive um problema como este e resolvi selecionando as mesmas fontes nas impressoras.

 

T+

Obrigado Cleverton vou verificar

Marcio

O Cleverton ja disse tudo, é so mais um reforço

 

Esses comandos para imprimir direto, tem um problema...

O windows não reconhece e nem o VB.

Na epson tem a configuração para 4 tipos de fontes.

Para imprimir comprimido, selecione atraves das 2 luzinhas da impressora a fonte

draft.

 

isso ai...

Não tem como fazer isso usando Printer?

 

O tamanho da folha +/-  10 x 17 cm, contendo 3 boletos cada página, usando o printer fica perfeito, porém ele imprime no primeiro boleto e joga os outros dois boletos fora e começa imprimir no 4º boleto, existe alguma maneira de corrigir isso?

 

Agradeço

No printer, vc pode usar as propriedades scaleheight e textheight  do objeto printer.

Para melhor controlar a impressora, vc deve saber a qte de linhas por folha.

Faça o seguinte.

Para saber o numero de linhas, digite o codigo abaixao, num evento.

 

Dim AlturaLinha As Integer
Dim Linhas As Integer

AlturaLinha = Printer.TextHeight("Ivo")
Linhas = Printer.ScaleHeight / AlturaLinha
MsgBox Linhas

Dai por diante vc pode controlar a impressão..