silakan dicoba;
Sub printbanyak()
Dim n As Integer, nmax As Integer, na As Integer
On Error GoTo bla
n = InputBox("Cetak dari nomor berapa ?", "Awal Print", 1)
nmax = InputBox("Sampai Nomor Berapa?", "Akhir Print")
For na = n To nmax
Range("F3") = na
ActiveSheet.PrintOut
Next
bla:
End Sub
________________________________
Dari: neza ibaneza <[email protected]>
Kepada: EXCEL EXCEL <[email protected]>
Dikirim: Kamis, 15 Maret 2012 16:04
Judul: [belajar-excel] print berulang
dear all
salam be-excel
saya ingin print kartu yang jumlahnya ribuan.., mohon pencerahannya untuk macro
atau VBA untuk program tersebut
agar tidak bolak-balik tekan tombol Print dan ganti referensi lookup-nya.
file terlampir
salam
Neza
