Fórum Impressão Matricial em Rede #290794
04/08/2005
0
Tenho uma aplicacao que imprime via rede em impressora matricial...
uso o seguinte comando
AssingFile(s,´Lpt1´);
Em painel de controle ( Impressora ) tenho que capturar a porta para funcionar, so que isto tem me causado serios problemas...
alguem tem alguma dica de como melhorar isso..
grato..
Robson.
Robsons
Curtir tópico
+ 0Posts
04/08/2005
Cesarpir
1º) Compartilhe as impressoras que deseja, porém na hora de informar o nome do compartilhamento coloque nome com até 8 digitos;
2º) Acrescente a clausula Printers no Uses, e tb acrescente um combobox com o name de CImp no seu form de impressão declare uma procedure CarregaImpressoras, e codifique crie um procedimento assim:
procedure TForm1.CarregaImpressoras;
var I : Integer;
begin
CImp.Items.Clear;
CImp.Items.Add(´LPT1´);
for I:= 1 to Printer.Printers.Count do Begin
if Pos(´LPT´, printer.Printers.Strings[I-1]) > 0Then
CImp.Items.Add(´LPT1´)
else if Pos(´\´, printer.Printers.Strings[I-1]) > 0 Then
CImp.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;
CImp.ItemIndex := 0;
end;
3º) No evento onshow do seu form chame o procedimento:
CarregaImpressoras;
4º) No código de impressão fica assim:
AssignFile(F,cArq);
Rewrite(F);
Bom é só testar pelo menos comigo funciona, se existe uma forma mais simples admito que nunca procurei saber, ah não se esqueça de que o nome de compartilhamento e tb por desencargo de consciência após adicionar a impressora o nome tb ok, e não precisa capturar porta.
A intenção que no combobox liste todas as impressoras que estiverem compartilhadas no micro e LPT1 para a impressora local.
Espero que ajude
César
Gostei + 0
04/08/2005
Cesarpir
AssignFile(F,cImp.text);
Rewrite(F);
Perdão :oops:
César
Gostei + 0
09/08/2005
Robsons
obrigado...
Gostei + 0
09/08/2005
Guilherme
Gostei + 0
09/08/2005
Cesarpir
César
Gostei + 0
10/08/2005
Edilcimar
Gostei + 0
10/08/2005
Cesarpir
Até mais
César
Gostei + 0
10/08/2005
Dopi
Gostei + 0
10/08/2005
Cesarpir
Quando tenho que fazer relatórios com gráficos, imagens, enfim mais complicados uso o fortes report e ai tudo bem.
César
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)