Anda adalah sebuah perusahaan kecil dan ingin mencetak slip gaji secara mudah dan tercatat dengan baik? berkut saya bagikan contoh file slip gaji, gratis. File ini dalam bentuk file excel 2003 dengan ekstensi file xls.
File ini menjadikan anda dapat mencetak beberapa slip gaji sekaligus dengan sekali klik, semuanya dengan Excel!
Berikut skrip Visual Basic for Application untuk menjalankan tombol “Print” di sheet “Payroll”:
Private Sub CommandButton1_Click()
Dim RecStart, RecFinish, Urut As Integer
Range("K4").Select
RecStart = ActiveCell.FormulaR1C1
Range("M4").Select
RecFinish = ActiveCell.FormulaR1C1
For Urut = RecStart To RecFinish
Range("H5:I5").Select
ActiveCell.FormulaR1C1 = Urut
'ActiveWindow.SmallScroll Down:=-3
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$47"
Application.ActivePrinter = "Epson LX-300+ on LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Next
End Sub
Perhatikan bahwa software dalam excel ini menggunakan printer LX-300+ yang terpasang di port LPT. Untuk printer lain, mohon dibuatkan modifikasi skrip VBA ( Visual Basic for Applicationnya ) dengan cara mengganti bagian berikut:
Application.ActivePrinter = "Epson LX-300+ on LPT1:"
Gantilah dengan printer yang terinstall dan sedang aktif.
silahkan
download di sini
salam bahagia
