[CrazySoft]

Si no estoy mal no funciona con canvas
prueba de esta manera

Código Delphi [-]
var Impresora: TextFile;
 
Begin
            assignFile(Impresora,'LPT1');
 
//           o
//                       AssignPrn(Impresora);
 
            rewrite(Impresora); //apertura del archivo, creacion
            Write(Impresora, #27); //ESC, Write(Impresora, ESC);
            Write(Impresora, '!'); // ! , Write(Impresora, !);
            Write(Impresora, #0); //Write(Impresora, n); #n
            Writeln(Impresora, ' Prueba');
            CloseFile(Impresora); //cerrar el archivo
        except
            Showmessage('Error impresora');
        end;
End;