Senhores, Bom dia

 

Tenho um formulario para impressao direto para impressora(matricial) so que esta lento a impressao, a impressora passa duas veses na mesma linha para formar a letra, fazendo a impressao ficar lenta, gostaria de saber se tem algo que posso fazer para melhorar isso e a impressao ser mais rapida.

 

Att.   

open "lpt1" for output as #1

print #1, "teste"

close #1

Pode ser problema da fonte usada para impressão, em impressoras matriciais, uma das fontes mais rápidas de impressão, é Draft.

Tente "Draft 10cpi"  17cpi ou 20cpi.

 

vlu//

vc já verificou no painel da sua impressora, a fonte utilizada ?

coloque a configuração em modo DRAFT e siga a dica do nosso colega LC

 

Roberto

USO CO COMANDO PRINTER ESTA FONTE NAO SEU RESULTADO E COMO SE O CODIGO IGNORASSE A FONTE

VAI AI O CODIGO

 

If Formulario.Value = 1 Then
   TBFVEND.Edit
   TBFVEND("VENDEDOR") = DBCombo1
   TBFVEND.Update
   MsgBox "Filtro Realizado, o relatorio sera Gerado !!!"

Dim BancoDeDados As Database
Dim TBFILTROVEND As Recordset
Dim TERMINO As Integer
Dim TERMINO1 As Integer
Dim LINHA As Integer
If MsgBox("Inicia a impressão?", 36, "Imprimir Ordem de Serviço") = 7 Then
    Exit Sub
End If
LINHA = 1
TERMINO = 0
TERMINO1 = 0
Set BancoDeDados = OpenDatabase("P:RELATORIOSPAVANCLIBD.MDB")
Set TBFILTROVEND = BancoDeDados.OpenRecordset("QFvendedor", dbOpenDynaset)

Printer.FontName = "MS Sans Serif"
Do While TERMINO < 1
Printer.FontName = "MS Sans Serif"
    Printer.Print Tab(30); " RELATORIO"
    Printer.Print Tab(25); " AV BRASIL, 1000"
    Printer.Print String(150, " ")
    Printer.Print String(150, "-")

Do While Not TBFILTROVEND.EOF
Printer.FontName = "MS Sans Serif"
    Printer.Print Tab(1); "NOME...:";
    Printer.Print Tab(17); TBFILTROVEND("NOME");
    Printer.Print Tab(1); "Endereço:";
    Printer.Print Tab(17); TBFILTROVEND("ENDERECO")
    Printer.Print Tab(1); "Bairro:";
    Printer.Print Tab(17); TBFILTROVEND("Bairro");
    Printer.Print Tab(82); "Cidade:";
    Printer.Print Tab(97); TBFILTROVEND("CIDADE");
    Printer.Print Tab(1); "Telefones:";
    Printer.Print Tab(17); TBFILTROVEND("TELEFONE");
    Printer.Print Tab(82); "Cep:";
    Printer.Print Tab(97); TBFILTROVEND("Cep");
    Printer.Print Tab(112); "UF:";
    Printer.Print Tab(122); TBFILTROVEND("UF");
    Printer.Print Tab(1); "Contato:";
    Printer.Print Tab(17); TBFILTROVEND("CONTATO")
   
    Printer.Print Tab(1); "Tel Empresa:";
    Printer.Print Tab(17); TBFILTROVEND("TELEMPRESA");
    Printer.Print Tab(82); "Celular:";
    Printer.Print Tab(97); TBFILTROVEND("Celular")
      
    Printer.Print Tab(1); "Fax:";
    Printer.Print Tab(17); TBFILTROVEND("Fax");
    Printer.Print Tab(82); "Tipo:";
    Printer.Print Tab(97); TBFILTROVEND("tipo")
       
    Printer.Print Tab(1); "Codigo:";
    Printer.Print Tab(17); TBFILTROVEND("codigo");
    Printer.Print Tab(82); "D.Aniver.:";
    Printer.Print Tab(97); TBFILTROVEND("dt_aniversario")
   
    Printer.Print Tab(1); "CPF-CNPJ:";
    Printer.Print Tab(17); TBFILTROVEND("cpfcnpj");
    Printer.Print Tab(82); "Insc Estadual:";
    Printer.Print Tab(97); TBFILTROVEND("inscestad")
   
    Printer.Print Tab(1); "Proficional:";
   ' Printer.Print Tab(17); TBFILTROVEND("proficionais.tipo");
    Printer.Print Tab(82); "Firma:";
    Printer.Print Tab(97); TBFILTROVEND("firma")
   
    Printer.Print Tab(1); "Obs:";
    Printer.Print Tab(17); TBFILTROVEND("obs");
   
   
    Printer.Print String(150, " ")
    Printer.Print String(150, "-")
       
    LINHA = LINHA + 1
    TBFILTROVEND.MoveNext
     If LINHA >= 5 Then
        Printer.NewPage
        LINHA = 1
     End If
    Loop
    TERMINO = 1
    MsgBox LINHA
    Loop
   
End If
End If

PODEM ME DAR MAIS ALGUMA DICA?

Qual o modelo da sua impressora ?