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 **
