saya sudah buat uk 1/2 quarto tetap ngak bisa. kalau buat ukuran sendiri itu
buat print pakai crystal report atau pakai printer.print tapi mungkin tidak
untuk print #3 dan kayaknya harus pakai coding. kalau dulu di clipper saya
pakai begini :
Q=0
DO CEKPRINT
SET PRINTER TO LPT1
SET DEVICE TO PRINT
SETPRC(0,0)
@ PROW(),PCOL() SAY CHR(27)+CHR(64)
@ PROW(),PCOL() SAY CHR(27)+CHR(15)
TPOT:=TGK:=TGB:=0
DO WHILE .not. eof()
TGK=GAJI+TJABAT+TKEL+TTRANS+TMAKAN+INCEN+LEMBUR+TLUAR+BUJANGAN
TPOT=PINALTY+KOPERASI+ASURANSI
TGB=TGK-TPOT
@ Q+01,5 SAY "BUKTI PEMBAYARAN GAJI"
@ Q+02,5 SAY "BULAN : "+MBLN2
@ Q+02,13+LEN(MBLN2)+1 SAY MTHN
@ Q+03,5 SAY REPL(CHR(196),50)
@ Q+04,5 SAY "NAMA :"
@ Q+04,19 SAY NAPEG
@ Q+05,5 SAY "STATUS :"
@ Q+05,19 SAY STAT
@ Q+06,5 SAY "GAJI POKOK Rp."
@ Q+06,25 SAY GAJI PICT "@[EMAIL PROTECTED] 9,999,999"+",-"
@ Q+07,5 SAY REPL(CHR(196),50)
@ Q+9,5 SAY "TUNJANGAN=>"
@ Q+10,5 SAY "-KESEHATAN Rp."
@ Q+10,26 SAY TJABAT PICT "@E 999,999"+",-"
IF TKEL>0
@ PROW()+1,5 SAY "-KELUARGA Rp."
@ PROW(),26 SAY TKEL PICT "@E 999,999"+",-"
ENDIF
IF TLUAR>0
@ PROW()+1,5 SAY "-KHUSUS Rp."
@ PROW(),26 SAY TLUAR PICT "@E 999,999"+",-"
ENDIF
IF BUJANGAN>0
@ PROW()+1,5 SAY "-BUJANGAN Rp."
@ PROW(),26 SAY BUJANGAN PICT "@E 999,999"+",-"
ENDIF
@ PROW(),PCOL() SAY CHR(27)+CHR(69)
@ PROW()+2,5 SAY "TOTAL GAJI Rp."
@ PROW(),25 SAY TGK PICT "@[EMAIL PROTECTED] 9,999,999"+",-"
@ PROW(),PCOL() SAY CHR(27)+CHR(70)
TGK:=0
TGB:=0
TPOT:=0
IF Q+31>33
Q=0
ELSE
Q=33
ENDIF
SKIP
ENDDO
EJECT
jadi saya hitung berdasarkan q. kira2 di vb gimana ya. ada yang bisa bantu.
thank's
----- Original Message -----
From: "agustama rumapea" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, December 21, 2005 8:14 AM
Subject: Re: [indoprog-vb] print setengah quarto
> Buat saja ukuran kertasnya custom , itu sebagai default ukuran kertas di
> printer anda.
>
>
> garudamas <[EMAIL PROTECTED]> wrote:
> mungkin ada yang bisa bantu cara ngeprint 1/2 dari uk.quarto (pakai
> continious form 1/2 quarto). berikut ini saya sudah bikin tapi sambung
> terus. kira2 kurang di mana ya. thank's
>
> Open "lpt1:" For Output As #3
> Print #3, Chr(15);
> Adodc1.RecordSource = "select * from PEGAWAI ORDER BY NAPEG"
> Adodc1.Refresh
> If Adodc1.Recordset.RecordCount > 0 Then
> Adodc1.Recordset.MoveFirst
> Do While Not Adodc1.Recordset.EOF
> ado = Adodc1.Recordset
> Print #3, "BUKTI PEMBAYARAN GAJI "
> Print #3, "BULAN : "; Format(Tgl.Value, "MMMM YYYY")
> Print #3,
> Print #3, "----------------------------------------"
> Print #3, "NAMA : "; Adodc1.Recordset!Napeg
> Print #3, "GAJI POKOK : Rp. "; RKanan(ado!Gaji, "##,###,##0"); ",-"
> Print #3, "----------------------------------------"
> Print #3,
> If ado!Keluarga > 0 Then
> Print #3, "- KELUARGA : Rp. "; RKanan(ado!Keluarga, "##,###,##0");
> ",-"
> End If
> If ado!Bujangan > 0 Then
> Print #3, "- BUJANGAN : Rp. "; RKanan(ado!Bujangan, "##,###,##0");
> ",-"
> End If
> If ado!Kesehatan > 0 Then
> Print #3, "- KESEHATAN : Rp. "; RKanan(ado!Kesehatan, "##,###,##0");
> ",-"
> End If
> If ado!Khusus > 0 Then
> Print #3, "- KHUSUS : Rp. "; RKanan(ado!Khusus, "##,###,##0"); ",-"
> End If
> If ado!TRANSPORT > 0 Then
> Print #3, "- TRANSPORT : Rp. "; RKanan(ado!TRANSPORT, "##,###,##0");
> ",-"
> End If
>
> Tot = ado!Gaji + ado!Keluarga + ado!Bujangan + ado!Kesehatan +
> ado!Khusus
> + ado!TRANSPORT
>
> Print #3,
> Print #3, "TOTAL GAJI Rp. "; RKanan(Tot, "##,###,##0"); ",-"
>
> If Adodc1.Recordset.EOF Then
> Else
> Adodc1.Recordset.MoveNext
> End If
> Loop
> End If
> Print #3, Chr(12)
> Close #3
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income homes are not online. Make a difference this holiday season!
http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/zCsqlB/TM
--------------------------------------------------------------------~->
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
