Bagaimana Mencetak Faktur Rangkap di ACCURATE?

Bagi beberapa perusahaan, mencetak Faktur Penjualan (Sales Invoice) diperlukan beberapa rangkap dimana tiap rangkapnya akan ditujukan untuk arsip dari tiap-tiap bagian terkait. Jika anda menggunakan Printer Dot Matrix, dimana kertas continues form memang bisa secara otomatis mencetak rangkap mungkin tidak akan jadi masalah untuk anda. Lalu bagaimana dengan printer tinta biasa? Harus print berkali-kali? Hm, repot bukan?

ACCURATE 4 memang tidak menyediakan default invoice yang seketika anda tekan tombol “Print” akan langsung beberapa kali cetak tiap rangkapnya. Namun hal ini dapat dilakukan Anda dengan mengikuti step berikut ini :

  1. Dari menu Setup | Form Template | Sales Invoice
  2. Double klik rancangannya kemudian klik Desain As FRF
  3. Kemudian ke menu Edit | Select All lalu pada bagian rancangan di page 1 klik tombol Ctrl + A kemudian klik CTrl + C
  4. Ke menu Edit | Add Page lalu paste pada Page 3 kemudian tekan tombol  Ctrl + V, maka tampilannya dapat akan pindah ke Page 3 kemudian rapikan letaknya dengan tekan tombol Ctrl tan tanda panah ke atas, bawah, kanan, atau kiri.
  5. kemudian ke bagian Master Footer tekan F11 dan double klik pada bagian [OnBeforePrint] kemudian rumus yang awalnya

begin

  SubTot := [SUM([Amount], MasterData1)];

  SubTotBase := [SUM([Base Amount], MasterData1)];

  while FreeSpace > 0 do ShowBand(Child1);

end

ganti masterData1 menjadi Band3 dan ganti Child1 menjadi Band5, sehingga rumusnya menjadi 

begin

  SubTot := [SUM([Amount], Band3)];

  SubTotBase := [SUM([Base Amount], Band3)];

  while FreeSpace > 0 do ShowBand(Band5);

end

  1. kembali lagi ke Page1 dan klik Edit | Select All
  2. kemudian tekan tombol Ctrl + A dan klik Ctrl + C
  3. ke Edit | Add page kemudian tekan tombol Ctrl + V,  maka tampilannya dapat akan pindah ke Page 3 kemudian rapikan letaknya dengan tekan tombol Ctrl tan tanda panah ke atas, bawah, kanan, atau kiri.
  4. kemudian ke bagian Master Footer tekan F11 dan double klik pada bagian [OnBeforePrint] kemudian rumusnya menjadi

begin

  SubTot := [SUM([Amount], Band9)];

  SubTotBase := [SUM([Base Amount], Band9)];

  while FreeSpace > 0 do ShowBand(Band11);

end

Pos ini dipublikasikan di Template, TIPS ACCURATE. Tandai permalink.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s