Arsip: Hasil Print Rata Kanan

 
user image
more 16 years ago

rusli_chow

Rekan2 sekalian, saya mau tanya gimana algoritmanya supaya hasil print kita rata kanan. Misalnya : 00001 Pulpen 2000 00002 Buku 10000 00003 Handphone 3 X 1000000 3000000 -------------------------------------- Total 3012000 Mohon bantuannya.
user image
more 16 years ago

bobby_pro

@rusli_chow, coba anda lihat set properti'y sample QRDBText1.align:=<ambil yg rata kanan> semoga membantu
user image
more 16 years ago

rusli_chow

Sorry mas, tapi yang saya maksud hasil printnya. Saya pake komponen TRawPrinter. Property untuk alignment gak ada.
user image
more 16 years ago

deLogic

hmmm sudah mampir ke sini: http://delphindo.wordpress.com/2006/03/28/direct-text-printing/ oiya, itu font cetakan nya monospace kan yak, jadinya lebar tiap huruf sama.. nah kalo gitu tinggal ber-imajinasi bermain2 dengan lebar kertas, panjang kalimat dalam satu baris tersebut dan penggandaaan spasi.
user image
more 16 years ago

herux

Kalo u mau, tambahin aja di TRawPrinter nya function di bawah ini (Tapi ngomong dulu yah sama embah delphi yg buat.. siapa hayo ??), ato u turunin kalo gak mau gunakan seadanya dech. function padl(s:string;l:byte): string; begin If length(s) < l then begin s:= s + space(l - length(s)) end; padl:= s; end; function padr(s:string;l:byte):string; begin If length(s) < l then begin s:= space(l-length(s)) + s; end; padr:= s; end; function space(l:byte): string; var S : array of char; St : String; begin Fillchar(S,Sizeof(S),' '); St:= S; SetLength(St,l); Space:= St; end; function right(s:string;l:byte): string; begin right:= copy(S,Length(S)-l+1,l) end; function left(s:string;l:byte): string; begin left:= copy(S,1,l); end;
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com