Saya modif sedikit :
Sub CetakOto() Dim i As Integer Sheets("Lap_Hsl_Try").Select' Cek Pilihan
If Range("L7") = "" Then Exit Sub
If Range("N7") = "" Then Exit Sub
If Range("L7") > Range("N7") Then Exit Sub For i = Range("L7") To
Range("N7")
Range("A1") = i
If WorksheetFunction.IsNA(Range("E13")) Then
AdaData = False
ElseIf Range("E13") = "" Then
AdaData = False
Else
AdaData = True
End If
If AdaData Then
ActiveWindow.SelectedSheets.PrintPreview ' .PrintOut
copies:=1, Collate:=True
End If NextEnd Sub
To: [email protected]
From: [email protected]
Date: Wed, 11 Apr 2012 20:39:55 -0700
Subject: Re: [belajar-excel] Macro Print
Seperti pepatah mengatakan "Sekali dayung dua tiga pulau terlampaui" maka
point 1 dan 2 dapat digabungkan pada tombol Cetak (2) dimulai dari no (angka)
pada sel N7 dan berakhir pada angka L7.
Perintah ini diattached pada tombol Cetak (2)Sub CetakOto() Dim i As Integer
For i = Range("N7") To Range("L7") ActiveSheet.PrintPreview 'untuk
cetak ganti dengan ActiveSheet.PrintOut Range("N7") = Range("N7") + 1
NextEnd Sub
Salam,Hendrik Karnadi
From: Jufri Devis <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Thursday, 12 April 2012, 9:54
Subject: [belajar-excel] Macro Print
Teman2,
Mohon bantuannya untuk sempurnakan Macro Printnya ya (contoh filenya ada di
Lampiran) :1. Perintah Cetak(1) maunya 1x klik akan mencetak satu persatu
sampai 32 kali, sekarang ini saya harus meng "klik" 32 kali2. Perintah Cetak(2)
dapat memilih nomor yang akan dicetak sesuai nomor yang diinginkan.
Terima kasih.
Wasalam,
Jufri
