wa'alaikumussalam wr wb
coba di set ulang printarea nya.
ada baiknya, object ditulis lengkap, seperti
sheets("interface").range("d6").value
Wassalamu'alaikum wr wb
Kid
On Fri, Mar 29, 2019 at 8:52 PM Agus nanga...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum warahmatullah,
>
> Saya mempunyai cekrip sederhana untuk print.
>
> Range("D1") = seka.Value
> For i = seka.Value To Tekan.Value
> ActiveSheet.PrintOut
> If Range("D1") = Tekan.Value Then
> Exit Sub
> Else
> Range("D1") = Range("D1") + 1
> End If
> Next
>
> Cekrip tersebut berjalan baik jika saya buka di excel 2007 dan 2010,
> namun tidak dapat berjalan baik pada excel 2013 (saya perintah untuk
> print halaman 1 - 20, hanya ngeprint halaman 5 dan 13 saja).
>
> Apakah kesalahannya? atau adakah perbaikannya?
>
>
>
