FONTES NO PRINTER ?

USUARIO.EXCLUIDOS 10/06/2005 18:09:24
#88327
OLA PESSOAL !!!

Quando uso o printer em um primeiro momento consigo imprimir rápido com no DOS, na segunda vez q mando o relatório fica lento novamente com outro tipo de letra o que fazer ?
como definir isso adequadamente e q fique fixo sem interferência do ambiente ?
GUTO 10/06/2005 18:12:12
#88329
eu faço assim vei

Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/yy"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
USUARIO.EXCLUIDOS 10/06/2005 18:15:22
#88333
OBRIGADO GUTO VOU TENTAR AGORA !!!
USUARIO.EXCLUIDOS 10/06/2005 18:17:48
#88335
Guto a letra ficou boa mas tá lento pra caramba, o q eu faço ?
GUTO 10/06/2005 18:22:53
#88338
seu metodo de impressao é parecido com esse ?

Dim PaginaInicial, Paginafinal, numerodecopias, i
CommonDialog1.CancelError = True
Dim Sql As String
Dim j, k As Integer
Dim Variavel As String
On Error GoTo imperro
'mostra a janela para impressora
CommonDialog1.ShowPrinter
'Captura os valores definidos pelo usuário na janela
PaginaInicial = CommonDialog1.FromPage
Paginafinal = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies
For i = 1 To numerodecopias
Printer.Print

MsgBox "Os dados foram enviados para a impressora ... ! ", vbInformation


Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/yy"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(5); "AREAS --------------------------------"
Printer.Print
Printer.Print Tab(5); "Codigo "; Tab(5); txtcodA.Text
Printer.Print Tab(5); "CodigoImo "; Tab(5); txtcodimo.Text
Printer.Print Tab(5); "Descricao "; Tab(5); txtdesc.Text
Printer.Print Tab(5); "Lotes "; Tab(5); txtlote.Text


Else
Printer.Print Variavel
End If
Next
' acaba aki
Printer.EndDoc
Exit Sub
imperro:
MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!", vbInformation
Printer.KillDoc
Exit Sub
USUARIO.EXCLUIDOS 10/06/2005 18:26:39
#88341
é estou usando um exemplo q peguei aki, é igual ao seu.
Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar