Impressão Matricial em XP e 2000
19/12/2003
0
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!!!!
Por Favor me ajudem urgente!!!!
Jdasg
Curtir tópico
+ 0
Responder
Posts
24/12/2003
P_lima
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.
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)