Boa Tarde, Pessoal
Estou tendo um problemão pra conseguir emitir relatório de um micro XP para
outro XP
Utiliza Delphi com Paradox
Coloquei no meu Formulário um comboBOX que lista todas as impressoras
instaladas no micro
utilizei a Procedure abaixo:
var
I: Integer;
begin
cboPress.Items.Clear;
For I:= 1 to Printer.Printers.Count do
Begin
if Pos('LPT', printer.Printers.Strings[I-1]) > 0 Then
CboPress.Items.Add('LPT1')
Else
if Pos('\\', printer.Printers.Strings[I-1]) > 0 Then
CboPress.Items.Add(Copy(printer.Printers.Strings[I-1],
Pos('\\', printer.Printers.Strings[I-1]),
length(printer.Printers.Strings[I-1]) -
Pos('\\', printer.Printers.Strings[I-1]) + 1));
End;
cboPress.ItemIndex:=0;
Depois o usuário seleciona a Impressora no ComboBox
e eu utilizo o comando abaixo para emitir:
AssignFile(ArqPrn,cboPress.Text);
[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]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
