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.
>
--
Best Regards,
- Ayang -
Please consider the environment before printing this email.
