Author Topic: Cetak buku tabungan ke printer passbook epson plq 20  (Read 711 times)

0 Members and 1 Guest are viewing this topic.

Offline deduwi

  • Newbie
  • *
  • Posts: 6
Cetak buku tabungan ke printer passbook epson plq 20
« on: August 08, 2016, 11:58:10 AM »
saya memiliki tabel dengan struktur :Cursor KARTUTBL ( BUKTI C(4), TANGGAL D(8),  SANDI C(1), KETERANGAN C(30),  DEBET N(12), KREDIT N(12),  SALDO N(12), USER C(3), Cetak C(1)), tabel tersebut telah terisi dengan data yang dibutuhkan untuk pencetakan buku tabungan. Buku tabungan untuk 1 halaman atas dan bawan total 36 baris dengan 18 baris pada buku atas dan 18 pada baris bawah. diselingi dengan 4 baris kosong setelah baris 18. Mungkin rekan2 bisa membantu untuk membuat aplikasi mencetak buku dengan menggunakan printer passbook secara otomatis. Terima kasih...

Offline arifinc

  • Senior Member
  • *
  • Posts: 481
  • snowfox
Re: Cetak buku tabungan ke printer passbook epson plq 20
« Reply #1 on: August 08, 2016, 04:55:34 PM »

Offline deduwi

  • Newbie
  • *
  • Posts: 6
Re: Cetak buku tabungan ke printer passbook epson plq 20
« Reply #2 on: August 08, 2016, 08:26:47 PM »
thx, untuk variabel lcCetak bagaimana?? dibuatkan file txt??

Offline s4ry4n4

  • Newbie
  • *
  • Posts: 13
Re: Cetak buku tabungan ke printer passbook epson plq 20
« Reply #3 on: August 10, 2016, 01:25:22 AM »
coba juga yang ini, semoga bisa membantu


*--- Buat Method : CetakBukuTabungan ----*

LPARAMETERS lnNoUrut, ldTgl, lcSandi, lnDebet, lnKredit, lnSaldo, lcPetugas

SELECT tmpcetakbukusimp
ZAP

INSERT INTO tmpcetakbukusimp(no_urt, tanggal, sandi, debet, kredit, saldo, petugas) VALUES(lnNoUrut, ldTgl, lcSandi, lnDebet, lnKredit, lnSaldo, lcPetugas)
 
IF MESSAGEBOX("Cetak Buku Tabungan?", 32 + 4, "Konfirmasi...") = 6 THEN
    STORE 0 TO x1, x2, x3, x4, x5, x6, x7, x8, x9
    IF USED("mysetupbuku") THEN
       SELECT mysetupbuku
       x1 = bc
       x2 = jb
       x3 = knourut
       x4 = ktanggal
       x5 = ksandi
       x6 = kdebet
       x7 = kkredit
       x8 = ksaldo
       x9 = kpetugas
    ENDIF
    SELECT tmpcetakbukusimp
    GO TOP
    SET PRINTER OFF
    SET DEVICE TO PRINTER
    SET PRINTER TO
    *SET PRINTER FONT "Courier", 8
    ?? ' '
    *HEAD = 0
   
    IF EMPTY(x2) THEN
       =MESSAGEBOX("Mohon periksa setingan buku tabungan", 16, "Perhatian...")
       RETURN .F.
    ENDIF

    ? ' '
    DO WHILE NOT EOF()
       lnBaris = x1
       Brs = lnNoUrut - 1    &&&&&THISFORM.tNoUrut.VALUE - 1
       lnMod = MOD(Brs, x2)
       lnMod = lnMod + 1
       ??? CHR(27) + CHR(15) + CHR(15)
       *@lnBaris + lnMod, x3 SAY ALLTRIM(STR(no_urt)) FONT "Arial", 8
       @lnBaris + lnMod, x4 SAY DTOC(tanggal) &&&&& FONT "Arial", 8   CHR(27) + CHR(15) + CHR(15) +
       @lnBaris + lnMod, x5 SAY PADR(ALLTRIM(sandi), LEN(ALLTRIM(sandi))) &&&&FONT "Arial", 6
       @lnBaris + lnMod, x6 SAY TRANSFORM(debet,"@Z 9,999,999,999.99") &&&&&FONT "Arial", 6   &&&&PICTURE '#,###,###,###.##'
       @lnBaris + lnMod, x7 SAY TRANSFORM(kredit,"@Z 9,999,999,999.99") &&&&&7777777777777FONT "Arial", 6  &&&& PICTURE '#,###,###,###.##'
       @lnBaris + lnMod, x8 SAY TRANSFORM(saldo,"@Z 9,999,999,999.99") &&&&&&FONT "Arial", 6   &&& PICTURE '#,###,###,###.##'
       @lnBaris + lnMod, x9 SAY PADR(ALLTRIM(petugas), LEN(ALLTRIM(petugas))) &&&&&& FONT "Arial", 6
       ??? CHR(18)
       
       SELECT tmpcetakbukusimp
       SKIP
    ENDDO
   
    ??? CHR(27) + CHR(15) + CHR(15)
    @lnBaris + lnMod + 1, x9 SAY ' '
    @lnBaris + lnMod + 2, x9 SAY ' '
    @lnBaris + lnMod + 3, x9 SAY ' '
    @lnBaris + lnMod + 4, x9 SAY ' '
    ??? CHR(18)
    EJECT
    SET DEVICE TO SCREEN
    SET PRINTER TO
ENDIF

Offline deduwi

  • Newbie
  • *
  • Posts: 6
Re: Cetak buku tabungan ke printer passbook epson plq 20
« Reply #4 on: August 13, 2016, 08:38:46 PM »
pertanyaan selanjutnya
1. ditengah buku biasanya terdapat bagian yang susah dicetak beerupa benang dan lipatan buku , bagaimana membuat jarak contohnya pada baris ke 19-21 , namun nomor urut tetap bersambung.
2. maksimal pencetakan buku 1 halaman ada 36 lembar dan jika lebih dari 36 agar nomor baris kembali ke 1?

mohon bantuan memodifikasi script diatas.
terima kasih

Offline arifinc

  • Senior Member
  • *
  • Posts: 481
  • snowfox
Re: Cetak buku tabungan ke printer passbook epson plq 20
« Reply #5 on: August 18, 2016, 10:49:17 PM »
@sis deduwi...

1. Tambahkan kode ini
if nNomor=20
   @prow()+1,0 say ''
endif

2. lihat screenshot saya diatas ganti 46 jadi 36

semoga membantu