IMPRESSAO DIRETA LPT1

CLAYTON 23/01/2014 16:22:16
#433463
Boa tarde pessoal,

nao sei se existe a possbilidade... mas vamos lá

gostaria de imprimir uma Imagem via impressao direta...

open [Ô]lpt1[Ô] for output as #1

print #1, [Ô]MEU TEXTO[Ô]
PRINT #1, IMAGEM

close #1
NLSOLUCOES 23/01/2014 21:13:32
#433472

Este link tem tudo o que você precisa e mais um pouco.

[]'s
SANTANANETO 29/01/2014 11:32:01
#433786
Tem sim,mas não esqueça que vai ficar travado op c ate a impressão terminar. A tela vai ficar congelada,pois direto nao tem buffer.
PAULOOLIVEIRA 29/01/2014 12:04:51
#433789
Utilize o metodo print, manda direto na porta:

close #1

Open [Ô]Lpt1[Ô] For Output As #1

Print #1, [Ô]o texto que deseja imprimir...[Ô]

close #1

se for usar por rede, tem que compartilhar a impressora e manda abrir open [Ô]\
omemaquina
omecompartilhamento[Ô] for output as #1...

e assim vai
MARCELO.TREZE 29/01/2014 12:15:01
#433792
bom acredito que ja tenha resolvido, porém esplicação objetiva, print para os textos e printer para imagem e pronto

open [Ô]lpt1[Ô] for output as #1

print #1, [Ô]MEU TEXTO[Ô]
Printer.PaintPicture Picture1, x , y, width, height

close #1
CLAYTON 29/01/2014 12:44:23
#433795
Obrigado pelas respostas , mas nao posso usar o Objeto PRINTER.print
pois em alguns momentos.. terei q passar comandos....


resumindo.. eu preciso imprimir uma imagem.. usando o

Open LPT1 for output as #1
PRINT #1, OBJETO_IMAGEM
close #1
MARCELO.TREZE 29/01/2014 12:49:06
#433796
como assim passar comandos, não entendi
MARCELO.TREZE 29/01/2014 13:01:33
#433800
espera ai acho que dá sim tente ai

Open [Ô]lpt1[Ô] For Output As #1

Open [Ô]c:\CaminhoImg.bmp[Ô] For Binary As #2 
img = Space(LOF(2))
Get #2, 1, img
Close #2 

Print #1, [Ô]MEU TEXTO[Ô]
Print #1, img



não sei se irá funcionar, teste com uma imagem de suas pastas
CLAYTON 29/01/2014 13:11:10
#433803
Citação:

:
espera ai acho que dá sim tente ai

Open [Ô]lpt1[Ô] For Output As #1

Open [Ô]c:CaminhoImg.bmp[Ô] For Binary As #2 
img = Space(LOF(2))
Get #2, 1, img
Close #2 

Print #1, [Ô]MEU TEXTO[Ô]
Print #1, img



não sei se irá funcionar, teste com uma imagem de suas pastas




ele imprimiu caracteres, mas nao saiu a imagem..
OCELOT 29/01/2014 15:25:07
#433825
Quando você imprime desta forma você está ignorando o driver da impressora e mandando comandos diretamente para ela, logo não vai existir uma forma padrão de se fazer isso, se é que vai existir alguma forma para se fazer isso.

Então se existir algo para isso vai ser específico da impressora, como por exemplo os comandos para deixar em negrito ou itálico de impressoras matriciais quando se imprime desta forma, porém eu nunca ouvi falar de nada que deixasse imprimir imagens.

Eu diria que você não vai ter muitas opções, ou não imprime a imagem ou passa a usar o objeto printer
Faça seu login para responder
Voltar