Setelah baris pindahkan data field dan sebelum baris print preview :

dim wbkAktif as workbook, wbkTarget as workbook
dim sht as worksheet
set wbkaktif=thisworkbook
set sht=activesheet
set wbktarget=workbooks.add
wbkaktif.activate
sht.copy before:=wbktarget.sheets(1)
wbkaktif.activate

Sebaiknya pelajari konsep tentang data connections daripada menggunakan
script di atas.

Wassalamualaikum,
Kid.

2012/1/11 dimas ricky <[email protected]>

> **
>
>
> Sudah bisa Mr. Kid..Terima kasih banyak bantuannya, betul2 sangat membantu
> saya
>
> Satu lagi Mr, kid & Members, tanpa mengurangi rasa hormat, bagaimana kode
> VB nya kalau hasilnya keluar di Workbook yang baru ya bukan di sheet yang
> baru ?
>
> Terima kasih sekali lagi
>
>
>
>
>
> 2012/1/11 Kid Mr. <[email protected]>
>
>  **
>>
>>
>> Coba diletakkan *tepat sebelum* baris-baris untuk print preview.
>>
>> Kid.
>>
>>
>>

Kirim email ke