Dear Pak Spd.,
Mungkin begini...
'----------------
Private Sub Cmd_Cetak_Multi_Click()
' Indri Hapsari / 22 Dec 2011
'----------------------------
Dim iPrint As Long
Const pesan As String = _
"NomorStart kok lebih besar dari nomorEnd ??" _
& vbCr & "cetak dibatalkan.."
' jika nomor awal cetak LebihBesarD/P nr akhir
If Range("P20").Value > Range("P22").Value Then
' munculkan teguran
MsgBox pesan, 48, ThisWorkbook.Name
' akhiri program, tanpa mencetak
Exit Sub
Else ' jika TIDAK....
' adakan pengulangan nomor dari... Ke Nomor...
' (sesuai yg tertulis di cell P20 dan P22)
For iPrint = Range("P20").Value To Range("P22").Value
' setiap pengulangan: angka di O39 diganti
Range("o39").Value = iPrint
' lalu di PrintOut
Me.PrintOut
Next iPrint
End If
End Sub
Private Sub Cmd_Cetak_Semua_Click()
Dim RecCount As Long, iPrint As Long
' menentukan jumlah baris data (tanpa menghitung Headingnya)
RecCount = Sheets("TabelSiswa").Cells(1).CurrentRegion.Rows.Count *- 1*
For iPrint = 1 To RecCount
Range("o39").Value = iPrint
Me.PrintOut
Next iPrint
End Sub
Private Sub Cmd_Cetak1_Click()
Me.PrintOut
End Sub
Private Sub Worksheet_Activate()
' mengantisipasi barangkali ada perubahan
' jumlah siswa (than.. Scroll Max disesuaikan dwong..)
Set sTabel = Sheets("TabelSiswa").Cells(1).CurrentRegion
ScrollBar1.Min = 1
ScrollBar1.Max = *sTabel.Rows.Count - 1*
End Sub
'----------------------
Semua procedures tsb ditulis di *Module Sheet yg akan diprint*
workbook-contoh ada & dapat diunduh di
sini<http://www.box.com/s/99tsn23t51c9t88xmob6>
:
-i-Haps-
2011/12/21 Sutrisno S.Pd <[email protected]>
>
> saya membuat file dengan data validasi, bagaimana cara mencetak data no
tertentu dan semua data secara urut dengan macro. terima kasih. file saya
sertakan pada attachment.
