18 Oct 2012
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
6. kembali lagi ke Page1 dan klik Edit | Select All
7. kemudian tekan tombol Ctrl + A dan klik Ctrl + C
8. 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.
9 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
.jpg)
.jpg)
