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 --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/KIlPFB/vlQLAA/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/
