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
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet security Computer internet business Computer
internet access Computer internet privacy securities Computer internet
help
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/2jUsvC/tzNLAA/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/
