Erro ao Imprimir em rede
Estou com problemas na hora que eu tento imprimir na rede em uma impressora Laser.
Usei isso
--------------------------------
AssignFile(Arquivo,ComboBox1.Text);
Rewrite(Arquivo);
For X := 0 to Texto.Lines.Count - 1 do begin
if Texto.Lines.Strings[X] = ´Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== ´ then begin
Continue;
End;
WriteLn(Arquivo, #2715+´ ´ + Texto.Lines.Strings[X]);
End;
CloseFile(Arquivo);
ERRO
I/O error 53
Usei isso
--------------------------------
AssignFile(Arquivo,ComboBox1.Text);
Rewrite(Arquivo);
For X := 0 to Texto.Lines.Count - 1 do begin
if Texto.Lines.Strings[X] = ´Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== ´ then begin
Continue;
End;
WriteLn(Arquivo, #2715+´ ´ + Texto.Lines.Strings[X]);
End;
CloseFile(Arquivo);
ERRO
I/O error 53
By Alemão
Curtidas 0