Arsip: Monitoring Proses Printing

 
user image
more 13 years ago

jimbot

salam rekan2 delphier.. mohon bantuannya.. gmana caranya agar dapat memonitoring proses printing (mulai awal pencetakan sampai selesai) kalau bisa dengan progressbar agar user dapat mengetahui proses tersebut :D sebelumnya trims atas bantuannya..
user image
more 13 years ago

j3free

gunakan TPrintDialog atributnya ada MinPage, MaxPage, dll... gunakan untuk progressbar(kalo emang pengen make itu) tekan Ctrl+F1 for help or tanya mbah gugel. :)
user image
more 13 years ago

jimbot

sori nanya lagi nii.. bukannya tuk atribut max n min dalam TPrintDialog qte diminta menentukan max n min page..sementara jumlah pagenya lom qte ketahui bos (lebih khusus tuk max)... mksd ku gmana caranya qte bisa memonitoring lembar by lembar proses pencetakannya.. sampean pya sampling ngak..??? semoga berkenan...Thanks B4
user image
more 13 years ago

jimbot

oh iya.. tadi ku da tanya ke mba gugel..tapi kok ngak mau jawab yaaa.. masih semedi kali..or demo tutup mulut...menyambut kenaikan BBM kali yeee.. :lol:
user image
more 13 years ago

j3free

[/quote="jimbot"]masih semedi kali..or demo tutup mulut...menyambut kenaikan BBM kali yeee.. [/quote] uggghhh... betul sekali... skrang aja aku udah g pernah makan gorengan... paling murah 500perak... bisa naik lagi tuh ntar.... wkakakakak btw.. aku jg blom pernah nyoba... hihiih dulu pernah nyoba print struktur tree gitu... sampe 40 halaman lebih, tapi g tau cara nyetop nya...wkakaakka kcaw deeech... oks try this link http://www.delphibasics.co.uk/Article.asp?Name=Printing liat paling bawah... // Increment the page number Inc(page); // Now start a new page - if not the last if (page <= endPage) and (not Printer.Aborted) then Printer.NewPage; kalo dia bisa menggunakan variabel page, kayanya bisa diatur... slamat mencoba :P
user image
more 13 years ago

jimbot

btw.. aku jg blom pernah nyoba...
weee..llleeee..gmana niii.. lom coba ternyata..xixixixi... gmana ni tip n trik nya...xixixixi...
oks try this link http://www.delphibasics.co.uk/Article.asp?Name=Printing
boss...itu da ada const nya... kyak yang tadi tu...pagenya lom diketahui.... ayoooo...apa coba.... :( but thank buanget sarannya...
user image
more 13 years ago

j3free

ini dari help nya delphi .... kalo bahsa inggris saya g salah... contohnya ditampilin di statusbar btw.. uda g ada ecit n hapus post-an kita yaa wah bahaya This example uses a button on a form. When the user clicks the button, one line of text is printed on six separate pages. As each page is printed, a message indicating the number of the page being printed appears on the status bar. To run this example successfully, you must add Printers to the uses clause of your unit and set the SimplePanel property of the status bar to true.
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  StatusBar1.SimplePanel := True; { so that SimpleText will work }
  Printer.BeginDoc;
  for I := 1 to 6 do
  begin
    Printer.Canvas.TextOut(100, 100, 'Object Pascal is great');
    StatusBar1.SimpleText := 'Now printing page ' + IntToStr(Printer.PageNumber));
    Printer.NewPage;
  end;
  Printer.EndDoc;
end;
more ...
  • Pages:
  • 1
Share to

Random Topic

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