Author Topic: [TIPS] memeriksa apakah report di print, atau tidak di print.  (Read 392 times)

0 Members and 1 Guest are viewing this topic.

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.556
    • Foxy Land
[TIPS] memeriksa apakah report di print, atau tidak di print.
« on: September 18, 2017, 03:13:27 PM »
Halo semua.....

Okay, seperti judul di atas, ini saya share sedikit tips; Saat kita memberi perintah :
Code: [Select]
REPORT FORM nama_report TO PRINTER PROMPT PREVIEW

maka user akan melihat tampilan report di window (=preview), dan user juga bisa meng-klik button printer untuk mencetak report.

Permasalahannya, bagaimana membedakan apakah user hanya preview, atau benar-benar melakukan print out (contoh kasus; di banyak perusahaan hanya boleh dicetak 1 copy faktur asli. Pencetakan berikutnya harus ada tulisan "COPY' yang gede atau tulisan "INI BUKAN FAKTUR!") - nah, cara membedakannya adalah seperti ini;

1. Buat fungsi sebagai berikut;
Code: [Select]
Function ReportDone
If Wexist("Printing...")
plPrinted = .T.
Endif
EndFunc
Penjelasan: pada saat printer bekerja, VFP akan menampilkan windows "Printing..." --- walaupun hanya sebentar. Window ini tidak akan muncul apabila user tidak melakukan print out (hanya preview atau memilih "Cancel")

2. Di report Anda, panggil fungsi ReportDone() di expresi On exit band Summary. Untuk lebih jelasnya, silahkan lihat gambar di bawah;


3. Saat menampilkan report, lakukan dengan cara seperti berikut;
Code: [Select]
Private plPrinted

plPrinted = .F.

Report Form nama_report to PRINTER Prompt Noconsole

If plPrinted
*--- flow program akan masuk ke sini apabila laporan tercetak dengan baik
ELSE
*--- flow program akan ke sini kalau user tidak mencetak
ENDIF

Semoga bisa bermanfaat :)

Regards,

foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline doditasik

  • Full Member
  • *
  • Posts: 78
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #1 on: September 19, 2017, 04:54:28 PM »
 :icon_salut: :icon_salut: :icon_thumleft: :icon_thumleft:

Offline strn

  • Full Member
  • *
  • Posts: 95
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #2 on: September 20, 2017, 07:17:58 AM »
Top...Tenan.. Terima Kasih.. Terima Kasih...

Offline Pujianto

  • Junior Member
  • *
  • Posts: 307
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #3 on: September 21, 2017, 10:47:11 AM »
Sangat Berguna Sekali Triknya..
Mantabs..

Offline poison

  • Hero Member
  • *
  • Posts: 1.612
  • Poison 4 Women
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #4 on: September 21, 2017, 12:15:38 PM »
mantaaaaaabs..... :icon_salut: :icon_salut: :icon_salut: :icon_salut:
think BIG to get BIG thing

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.556
    • Foxy Land
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #5 on: September 21, 2017, 02:11:40 PM »
mantaaaaaabs..... :icon_salut: :icon_salut: :icon_salut: :icon_salut:

Thank you salut nya oom poison.....

(biarpun saya tau betul, Anda juga sudah tau.....  :icon_biggrin: :icon_biggrin: :icon_biggrin: )
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline Dew Nevada

  • Newbie
  • *
  • Posts: 12
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #6 on: December 04, 2017, 10:09:54 AM »
Mau tanya master, itu plPrinted di function ReportDone untuk apa ya? terima kasih ^^

Offline foxy

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 3.556
    • Foxy Land
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #7 on: December 05, 2017, 08:09:25 AM »
halo dew nevada: karena Anda masih belajar, anjuran saya Anda mencoba dulu membuat report dan mencetak dengan cara yang sudah saya post sebelumnya.  Berikan perintah SET STEP ON sebelum perintah plPrinted = .F. , lalu gunakan Debugger untuk melakukan single-step (tombol F8) dan perhatikan bagaimana perubahan variabel terjadi saat report di cetak atau saat report cuma di preview saja.

hth

foxy
This post is provided as is. Feel free to use all the codes and information, however understand that I don't have any obligations to fix any bug(s) or follow up this subject.

Offline Dew Nevada

  • Newbie
  • *
  • Posts: 12
Re: [TIPS] memeriksa apakah report di print, atau tidak di print.
« Reply #8 on: December 05, 2017, 08:30:56 AM »
SET STEP ON ya,..

saya belum pernah make sih kalo itu...

oke deh saya coba dulu, makasih ^^