Fórum Printfast - Imprimir direto na LPT1 #262966

   AssignFILE(MeuTexto,´LPT1´);
       ReWrite(MeuTexto);
       For iLaco := 1 to 2 do WriteLn(MeuTexto,´´);
       sVar := ´    ´ + Copy(ibQuery1.FieldByName(´DATA´).AsString,1,5) +
         ´   ´ + ibQuery1.FieldByName(´HORA´).AsString;
       WriteLn(MeuTexto,sVar);
       For iLaco := 1 to 1 do WriteLn(MeuTexto,´´);
       WriteLn(MeuTexto, ´            ´ + ibQuery3.FieldByName(´F_APTO´).AsString);
       For iLaco := 1 to 2 do WriteLn(MeuTexto,´´);
       sLinha1 := ´´;
       sLinha2 := ´´;
       sLinha3 := ´´;
       sLinha4 := ´´;
       For iLaco := 0 to DBMemo1.Lines.Count do Begin
         Case iLaco Of
           0: sLinha1 := DBMemo1.Lines[iLaco];
           1: sLinha2 := DBMemo1.Lines[iLaco];
           2: sLinha3 := DBMemo1.Lines[iLaco];
           3: sLinha4 := DBMemo1.Lines[iLaco];
         End;
       End;
       WriteLn(MeuTexto, ´     ´ + sLinha1);
       WriteLn(MeuTexto, ´     ´ + sLinha2);
       WriteLn(MeuTexto, ´     ´ + sLinha3);
       WriteLn(MeuTexto, ´     ´ + sLinha4);
       WriteLn(MeuTexto,Replicate(´ ´,60) + ibQuery1.FieldByName(´REMETENTE´).AsString);
       WriteLn(MeuTexto, ´      ´ + ibQuery3.FieldByName(´F_NOME´).AsString);
       For iLaco := 1 to 9 do WriteLn(MeuTexto,´´);
       CloseFile(MeuTexto);