Hai Emi,
coba hapus blok If MsgBox bla bla bla..
Wassalam,
-Miss Jan Raisin-
Pada 24 Maret 2014 10.03, Emi <emilestarik...@yahoo.com> menulis:
>
>
> Guru dan teman BeExcel,
>
> Makro di bawah adalah dari Mr Kid.
> Untuk mencetak satu halaman ke satu halaman.
> Bagaimana caranya kalau saya mau mencetak sekali gus tanpa perlu ditanya
> mau dicetak next page atau tidak.
>
> File excelnya dilampirkan.
>
>
>
> Terima kasih.
>
> Emi Lestari
>
> --------
> Public Sub Unclaimed()
> Dim lPage As Long
> If Range("o2").Value > 0 Then
> Range("o3").Value = 1
> For lPage = 1 To Range("o2").Value
> ActiveSheet.Calculate
> Range("a1:j69").PrintOut '
> Range("o3").Value = lPage
> If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo
> + vbQuestion, "Cetak") = vbNo Then
> Exit For
> End If
> Next lPage
> End If
> End Sub
>
>
>
