Sub Print_Coy()
Dim U As Integer
With ActiveSheet
For U = .Range("L11").Value To .Range("L12").Value
Range("F3").Value = U
.PrintPreview '<<- ganti denan PrintOut
' .PrintOut
Next
End With
End Sub*o'Seno* 2012/3/15 neza ibaneza <[email protected]> > ** > dear all > salam be-excel > saya ingin print kartu yang jumlahnya ribuan.., mohon pencerahannya untuk > macro atau VBA untuk program tersebut > agar tidak bolak-balik tekan tombol Print dan ganti referensi lookup-nya. > file terlampir > salam > Neza > > >
print berulang_paling enak denan Mak Ro.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
