saya punya pertanyaan, saya punya code delphi seperti ini procedure TFrmIjinType.btnPrintClick(Sender: TObject); var i,x:integer; //param1:string; begin //param1:=inttostr(queryijin.fieldbyname('JUMLAH_UTTP_MASUK').Value); x:=StrTointDef(PrinEdit.Values['Number of Print'],1); for i:=1 to x do begin //StrToFloatDef(PrinEdit.Values['Top'],10.0+20.0); Printer.BeginDoc; begin Barcode1.Print( iif(PrinEdit.Values['Unit'] = 'utInch',utInch,utMillimeter), StrToIntDef(PrinEdit.Values['Left'],20), StrToFloatDef(PrinEdit.Values['Top'],20.0), StrToFloatDef(PrinEdit.Values['Height'],15.0), StrToFloatDef(PrinEdit.Values['Modul'],0.2), StrToFloatDef(PrinEdit.Values['Angle'],0)); end; Printer.EndDoc; end; end; saya punya pertanyaan dibagian script ini: x:=StrTointDef(PrinEdit.Values['Number of Print'],1); ketika saya tekan tombol print hasil yg keluar selalu sama (misal kan 1 satu terus)... bagaimana supaya hasil print'a nanti, ketika saya masukan angka 2 maka hasil print'a akan dimulai dari angka 1 dan kemudian berakhir d angka 2 sesuai angka masukan tadi...?????? mohon bantuan'a dari mas2 semua...mohon maap klo pertanyaan'a membingungkan.. saya tunggu resep2'a terimakasih....

Di bawah command PRINTER.ENDDOC; tambahkan command: PrinEdit.Edit; PrinEdit.Values['Number of Print'] := x + 1; PrinEdit.Post;

aduh mas...gak bisa...malah muncul error spt ini: "[Error] fijintype.pas(1468): Undeclared identifier: 'edit' [Error] fijintype.pas(1469): Incompatible types: 'String' and 'Integer' [Error] fijintype.pas(1470): Undeclared identifier: 'Post' [Fatal Error] Labeling.dpr(12): Could not compile used unit 'fijintype.pas'" harus bgmn selanjut'a?mohon pencerahan'a!?!?!

Maaf, PrinEdit Anda berarti bukan berupa komponen Table atau Query. PrinEdit Anda berupa component apa?

printedit'a itu pake komponen TValueListEditor....hsr bgmn? terimakasih sebelum'a.....