Terima kasih Mas Ayang,
Mau tanya lagi ya...
Gimana klw setiap lembar itu berisi 2 label ayng akan di print out.
hal 1 : label 1 dan 2
hal 2 : label 3 dan 4
hal 3: label 5 dan 6
dan seterusnya..
terima kasih
Ayang wrote:
Ternyata yg diharapkan Pak Sukarno scriptnya spt ini:
Private Sub cmdCetak_Click()
Dim mulai As Integer, sampai As Integer
mulai = Sheet2.Range("B4").Value
sampai = Sheet2.Range("C4").Value
For I = mulai To sampai
Sheet2.Range("B4").Value=I
ActiveWindow.SelectedSheets.PrintOut
Next I
End Sub
Agar hasil printout-nya berubah sesuai hasil dari vlookup :-)
tapi hasilnya ga berubah.
semua hasil print out sama.
maunya,
halaman 1= nomer 1 (a 1000)
halaman 2= nomer 2 (b 800)
trims,
sukarno
2008/10/29 Ayang <[EMAIL PROTECTED]>
di sheet2 (print) truh kode:
Private Sub cmdCetak_Click()
Dim mulai As Integer, sampai As Integer
mulai = Sheet2.Range("B4").Value
sampai = Sheet2.Range("C4").Value
For I = mulai To sampai
ActiveWindow.SelectedSheets.PrintOut
Next I
End Sub
Semoga jwbnya sesuai harapan (utk jlsnya silahkan lihat attachment) :-)
Tapi kl berharap lebih, kejarlah mbak yuk Siti ;-)
Rgds,
-Ayang-
2008/10/29 sukarno <[EMAIL PROTECTED]>
Dear All,
Saya ingin mencetak suatu lembar yang menggunakan vlookup.
Misalnya saya masukan nilai
Mulai : 1
Sampai : 14
maka akan dicetak mulai 1 sampi 14.
Bagmn cara makronya?
Terima kasih
Sukarno
------------------------------------
bergabung ke milis (subscribe)
kirim mail kosong ke: [EMAIL PROTECTED]
posting ke milis
kirim kan ke: [email protected]
berkunjung ke web milis:
http://groups.yahoo.com/group/belajar-excel/
melihat file archive / mendownload lampiran
http://www.mail-archive.com/[email protected]/
menhubungi moderators & owners:
[EMAIL PROTECTED]
keluar dari milis (unsubsribe)
kirim mail kosong ke: [EMAIL PROTECTED]
ExcelWeb <http://opi.110mb.com/>Yahoo! Groups Links
--
Best Regards,
- Ayang -
Please consider the environment before printing this email.
