Impressão Matricial em XP e 2000

Delphi

19/12/2003

Estou tentando imprimir um relatório matricial em uma impressora conectada a outro computador na rede. Mas para isso preciso capturar a porta de impressão do computador que a impressora está conectada, no windows 95 e 98 ao selecionar a impressora e clicarmos em capturar porta selecionamos a impressora e beleza, já no XP e 2000 não consigo capturar.
Por Favor me ajudem urgente!!!!


Jdasg

Jdasg

Curtidas 0

Respostas

P_lima

P_lima

19/12/2003

Fiz para resolver meu poblema no Windons2000 e funcionou perfeito, não sei se funciona no Windons XP. Um Abraço, Feliz Natal!!!

Com paciência tudo se conquista!

//Use no evento OnShow do form

var I : Integer;
begin
ComboBox1.Items.Clear;
For I:= 1 to Printer.Printers.Count do
Begin
if Pos(´LPT´, printer.Printers.Strings[I-1]) > 0Then
ComboBox1.Items.Add(´LPT1´)
Else if Pos(´\\´, printer.Printers.Strings[I-1]) > 0 Then
ComboBox1.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;

end;

Abraços.


GOSTEI 0
POSTAR