Arsip: Mencetak Text Yang Ada Di Memo ?

 
user image
more 16 years ago

umarbakri

Gimana Caranya Ya ..? trim's
user image
more 16 years ago

yayaretina

maksud lo... mbok yg jelas... tinggal pake quickreport kan jadi dah tu... tinggal comot memo.lines nya di form. QRMemo1.Lines:=Memo1.Lines;
user image
more 16 years ago

maulaku


uses printers;
procedure TForm1.PrintIt(Sender: TObject) ;
var
   PrintBuf: TextFile;
j : integer;
begin
   AssignPrn(PrintBuf) ;
   Rewrite(PrintBuf) ;
   try
     for j := 0 to Memo1.Lines.Count-1 do
       WriteLn(PrintBuf, Memo1.Lines[j]) ;
   finally
     CloseFile(PrintBuf) ;
   end;
end;
user image
more 15 years ago

fissas

Mas-mas sekalian...... saya coba cetak data..... tapi hasil yang dicetak tidak sesuai dengan yang ditampilkan Memo...... Contohnya sbb : Nama : Saya Alamat : Jalan Sukamaju Tlp : 0000000000000 Kota : Bandung Tapi setelah diprint..... hasilnya jadi... Nama : Saya Alamat : Jalan Sukamaju Tlp : 0000000000000 Kota : Bandung tanda titik dua tidak sejajar............ Kenapa yach mas...... padahal font nya sudah diseting ke Courier New....... Help donk......, Thk's
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com