Var fajl: file; Podesenje, Tekst, Reset: string; begin Podesenje:= #27'@' + // inicijalizacija printera #27#48 + // prored #27#80 + // 10cpi #27#108#0 + // Poravnanje lijevo #27#67#0#9; // Velicina stranice u incima Tekst:= 'neki tekst koji treba da se stampa'; Reset:= #27'@'; AssignFile(f, 'LPT1:'); try Rewrite(fajl); Write(fajl, podesenje+ Tekst + Reset); finally CloseFile(fajl); end; end;