Wa'alaikumussalam wr wb Hai Ambo,
Dengan asumsi isi cells T1 berubah-ubah setiap kali akan beralih mencetak nomor berikutnya, maka tambahkan script application.screenupdating=true tepat setelah baris LoadPicture. Tapi, jika T1 tidak berubah isinya ketika akan beranjak ke nomor berikutnya, seperti di T1 bukan berisi formula pengambil nama file foto berdasar isi cell M7, maka Anda erlu memperbaiki cells T1 tersebut agar berisi formula yang dimaksud. Ada baiknya, di bari pertama setelah baris-baris deklarasi variabel diberi kode : application.calculations=xlcalculationautomatic Wassalamu'alaikum wr wb Kid On Thu, Jun 30, 2016 at 10:50 PM, Ambo Ala [email protected] [belajar-excel] <[email protected]> wrote: > > > Saya punya scrib seperti ini: > > Private Sub CommandButton1_Click() > Dim Awal, Akhir As Integer > Dim NamaData As String > > Awal = Range ("N3") . Value > Akhir = Range ("N5") . Value > > If Awal <= Akhir And Awal >= 1 Then > For i = Awal To Akhir > With Sheets ("Bio") > .Range ("M7") . value = i > NamaData = Range ("T1") > Files = ActiveWorkbook.Path & "\Photo\" & NamaData & ".jpg" > Image1.Picture = LoadPicture (Files) > End With > ActiveSheet . PrintOut > Next i > Else > MsgBox "Cek lagi nomor yang akan dicetak...", vbCritical, "Error Cetak" > End If > > End Sub > > > Niatnya scrib ini bisa print data sekaligus sesuai nomor urut data... > Print data sukses, sesuai dg data... > Tapi untuk fotonya, tidak ikut berubah... > > Mohon bantuannya, dimana letak kesalahan scribnya... > Terimakasih > > -- > Wassalam, > > *Ambo Ala* > 0853 1170 2112 > PIN BB ** 7E A1A1 37 ** > > >
