RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui
na empresa.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
[As partes desta mensagem que não continham texto foram removidas]
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0450-0, 06/12/2004
Tested on: 8/12/2004 20:05:26
avast! - copyright (c) 2000-2004 ALWIL Software.
http://www.avast.com
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
---
---
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0450-1, 09/12/2004
Tested on: 9/12/2004 17:26:15
avast! - copyright (c) 2000-2004 ALWIL Software. http://www.avast.com
--
RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Só um detalhe, resta saber se esse mesmo método serve para impressão em uma
impressora compartilhada em rede. Se servir, excelente!
[]s
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:29
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui
na empresa.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
[As partes desta mensagem que não continham texto foram removidas]
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0450-0, 06/12/2004
Tested on: 8/12/2004 20:05:26
avast! - copyright (c) 2000-2004 ALWIL Software.
http://www.avast.com
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
---
---
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED
RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Se a impressora estiver compartilhada e possível enviar direto para a
impressora \\MICRO\NOME DO COMPARTILHAMENTO DA IMPRESSORA_USB.
Isto eu estou usando aqui e funciona normal com impressoras ZEBRA (Código de
Barras) o meu problema e que não quero compartilhar a impressora para evitar
problemas.
Estou tentando adaptar a PROCEDURE abaixo para ver se consigo.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:31
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Só um detalhe, resta saber se esse mesmo método serve para impressão em uma
impressora compartilhada em rede. Se servir, excelente!
[]s
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:29
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui
na empresa.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
[As partes desta mensagem que não continham texto foram removidas]
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0450-0, 06/12/2004
Tested on: 8/12/2004 20:05:26
avast! - copyright (c) 2000-2004 ALWIL Software.
http://www.avast.com
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do
RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Rubens vou fazer uns teste aqui na minha rede (WINDOWS 2000).
Minha impressora é uma TLP 2844 ZEBRA (código de barras) aparentemente funciona
normal na rede. Mas como tenho uma proteção para que ela não seja compartilhada
com outras maquinas, não sei como funciona na rede. Amanhã eu testo e posto uma
mensagem se funciona ou não.
Sei que localmente eu Uso assignFile( Impressora, \\Micro\Impressora
file://Micro/Impressora USB) e Funciona perfeitamente.
Ate Amanha
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:55
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Eu já vi um pessoal em um grupo de Visual FoxPro falar que esse recurso de
compartilhar uma impressora USB não funciona. Seria interessante averiguar se a
dica enviada funciona com impressoras de modo geral, sejam USB ou não,
compartilhadas ou não.
[]s
-Mensagem original-
De: Elcio Domingos Ramos [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:51
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Se a impressora estiver compartilhada e possível enviar direto para a
impressora \\MICRO\NOME DO COMPARTILHAMENTO DA IMPRESSORA_USB. Isto eu
estou usando aqui e funciona normal com impressoras ZEBRA (Código de Barras) o
meu problema e que não quero compartilhar a impressora para evitar problemas.
Estou tentando adaptar a PROCEDURE abaixo para ver se consigo.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:31
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Só um detalhe, resta saber se esse mesmo método serve para impressão em uma
impressora compartilhada em rede. Se servir, excelente! []s
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:29
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não
RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Eu já vi um pessoal em um grupo de Visual FoxPro falar que esse recurso de
compartilhar uma impressora USB não funciona. Seria interessante averiguar se a
dica enviada funciona com impressoras de modo geral, sejam USB ou não,
compartilhadas ou não.
[]s
-Mensagem original-
De: Elcio Domingos Ramos [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:51
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Se a impressora estiver compartilhada e possível enviar direto para a
impressora \\MICRO\NOME DO COMPARTILHAMENTO DA IMPRESSORA_USB. Isto eu
estou usando aqui e funciona normal com impressoras ZEBRA (Código de Barras) o
meu problema e que não quero compartilhar a impressora para evitar problemas.
Estou tentando adaptar a PROCEDURE abaixo para ver se consigo.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 17:31
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Só um detalhe, resta saber se esse mesmo método serve para impressão em uma
impressora compartilhada em rede. Se servir, excelente! []s
-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 15:29
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Prioridade: Alta
Não necessariamente, companheiro. Ele não usa os métodos de desenho do Canvas,
e sim o device context (hDC - handle) da impressora para comunicação direta com
a mesma.
[]s
-Mensagem original-
De: Paulo Santana (Terra) [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 9 de dezembro de 2004 16:26
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Impressao em Porta USB - Exemplo que funciona...
Como disse ainda continua sendo via Canvas (Printer.Canvas)
Eduardo Jedliczka wrote:
Achei um exemplo, que funciona com impressoras locais (paralelas,
seriais e USB) e impressoras de rede:
procedure TForm1.Button1Click(Sender: TObject);
var
Buff : TPrnBuffRec;
testint : Integer;
TmpStr: String;
i : Integer;
begin
printer.BeginDoc;
testint := PASSTHROUGH;
if not Escape(Printer.Handle, QUERYESCSUPPORT,
sizeof(TestInt),@TestInt,
nil) 0 then
begin
ShowMessage('Não foi possível configurar a impressora para impressão
direta');
Exit;
end;
TmpStr := 'Estou imprimindo um texto...'#13#10'diretamente para a
impressora'#13#10'se você desejar formatar este texto,'#13#13'utilize os
comandos como no DOS'#12;
Buff.BuffLength := Length(TmpStr);
for i:=0 to Buff.BuffLength-1 do
Buff.Buffer[i]:=TmpStr[i+1];
Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil);
Printer.endDoc;
end;
Estou desenvolvendo um componente de preview para ela mas ando sem
tempo...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Thursday, December 09, 2004 3:51 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Devo discordar, é possível fazer a impressão para impressoras USB sem
ser via canvas.
Mas é necessário utilizar um monte de ESCapes... ou seja, dá muito
trabalho...
[s]
=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
- Original Message -
From: Paulo Santana (Terra)
To: [EMAIL PROTECTED]
Sent: Wednesday, December 08, 2004 9:05 PM
Subject: Re: [delphi-br] Impressao em Porta USB
Impressão em USB somente via Canvas.
Elcio Domingos Ramos wrote:
Como faço para enviar dados para a porta USB001.
Uso assignFile(Imprimi, 'LTP1')
Tentei fazer a mesma coisa com USB001 mas não deu certo.
Já vi este assunto por aqui mas. Não tenho acesso ao site do yahoo aqui
na empresa.
Elcio Domingos Ramos mailto:[EMAIL PROTECTED]
DEMAG Cranes Components Ltda.
Planejamento Industrial
Fone: (11)4615-7823 - Fax : (11)4615-7910
[As partes desta mensagem que não continham texto foram removidas]
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0450-0, 06/12/2004
Tested on: 8/12/2004 20:05:26
avast! - copyright (c) 2000-2004 ALWIL Software.
http://www.avast.com
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço
