DUVIDA. OPEN LPT1 FOR OUTPUT AS #1
Gostária de saber se é possivel alterar a fonte para imprimir, utilizando este metodo de impressão:
OBS: Gostaria que meu Print tivesse a fonte Courier New e seu tamanho 7. E que também precisaria
que a impressão comece no canto superior esquerdo e no topo.
Open [Ô]LPT1[Ô] For Output As #1
Print #1, Tab(2); TbVenda!CodVenda
Print #1, Tab(2); Mid(TbVenda!Produto, 1, 20);
Print #1, Tab(25); Format(TbVenda!Preço, [Ô]Currency[Ô])
Close #1
Por Favor. Se algúem souber alguma maneira de alterar Fonte, Tamanho, E maneira de Ajustar Impressão.
Agradeço Desde já.
Ajudem.
OBS: Gostaria que meu Print tivesse a fonte Courier New e seu tamanho 7. E que também precisaria
que a impressão comece no canto superior esquerdo e no topo.
Open [Ô]LPT1[Ô] For Output As #1
Print #1, Tab(2); TbVenda!CodVenda
Print #1, Tab(2); Mid(TbVenda!Produto, 1, 20);
Print #1, Tab(25); Format(TbVenda!Preço, [Ô]Currency[Ô])
Close #1
Por Favor. Se algúem souber alguma maneira de alterar Fonte, Tamanho, E maneira de Ajustar Impressão.
Agradeço Desde já.
Ajudem.
Por que não utiliza o objeto PRINTER de outra forma?
OldFont = Printer.FontName [txt-color=#007100][ô]Preserva a fonte original.[/txt-color]
Printer.FontName = [Ô]Times New Roman[Ô] [txt-color=#007100][ô]Muda a fonte atual.[/txt-color]
[txt-color=#0000f0]For [/txt-color]i = [txt-color=#e80000]1[/txt-color] [txt-color=#0000f0]To [/txt-color][txt-color=#e80000]10 [/txt-color]
Printer.Print [Ô] Teste [Ô]
[txt-color=#0000f0]Next[/txt-color]
Printer.FontName = OldFont [txt-color=#007100][ô]Restaura a fonte original.[/txt-color]
OldFont = Printer.FontName [txt-color=#007100][ô]Preserva a fonte original.[/txt-color]
Printer.FontName = [Ô]Times New Roman[Ô] [txt-color=#007100][ô]Muda a fonte atual.[/txt-color]
[txt-color=#0000f0]For [/txt-color]i = [txt-color=#e80000]1[/txt-color] [txt-color=#0000f0]To [/txt-color][txt-color=#e80000]10 [/txt-color]
Printer.Print [Ô] Teste [Ô]
[txt-color=#0000f0]Next[/txt-color]
Printer.FontName = OldFont [txt-color=#007100][ô]Restaura a fonte original.[/txt-color]
A questão que quero saber é a seguinte:
Se eu usar este código:
[txt-color=#0000f0]Open [Ô]LPT1[Ô] For Output As #1
...
...
Close #1[/txt-color]
A função vai fazer imprimir na impressora todos os PRINT #1. Na hora que chegar no Close #1, a impressora para de imprimir e deixa a folha parada
a onde foi finalizada a impressão. Entende. Mais não consigo mudar a fonte do PRINT usando o código acima.
[txt-color=#0000f0]Usando o PRINTER. Existe algum meio de Parar a impressão e deixar a folha na impressora a onde terminou a impressão ???[/txt-color]
Se alguém poder ajudar.
Agradeço desde já.
Se eu usar este código:
[txt-color=#0000f0]Open [Ô]LPT1[Ô] For Output As #1
...
...
Close #1[/txt-color]
A função vai fazer imprimir na impressora todos os PRINT #1. Na hora que chegar no Close #1, a impressora para de imprimir e deixa a folha parada
a onde foi finalizada a impressão. Entende. Mais não consigo mudar a fonte do PRINT usando o código acima.
[txt-color=#0000f0]Usando o PRINTER. Existe algum meio de Parar a impressão e deixar a folha na impressora a onde terminou a impressão ???[/txt-color]
Se alguém poder ajudar.
Agradeço desde já.
ACHO que se vc utiliar os códigos especiais de escape da impressora, funciona... geralmente é um chr(27)+chr([Ô]n[Ô]), onde [Ô]n[Ô] é o código de comprimido, itálico, bold, etc... quanto a mudar a fonte... não sei se tem como... a vantagem de usar o open for output é não passar pelo spooler de impressão do windows, o que torna a velocidade de impressão maior - principalmente em impressoras matriciais... se não for o caso de uma matricial... acho melhor utilizar o objeto print ou outro gerenciador de relatórios tipo cristal ou reportx
Tópico encerrado , respostas não são mais permitidas