Mungkin Sub cmdCetak_Click perlu diubah menjadi sbb:
Private Sub cmdCetak_Click()
Dim wsdtbs as Worksheet ' baru
*EndShow = True ' baru*
Unload Me ' pindah tempat
Set wsdtbs = Sheets("PRINT")
wsdtbs.PrintOut copies:=1, collate:=True
With Sheets("DAILY OUTPUT")
.Visible = -1: .Activate
End With
ThisWorkbook.Save
End Sub
note
saya kok merasa kenal sekali /tidak asing dengan susunan skript (=bukan
"RUMUS")
makro dlm userform tsb.
tapi kalau ternyata hanya mirip (dan itu ternyata ciptaan anda sendiri),
saya mohon maaf,
tentu telah terjadi KESAMAAN yg SANGAT DEKAT termasuk nama Object LABEL,
nama Label Perintah ("Ulangi"), cara menggerakkan form dari arah kiri atas
ke kanan bawah, urut-urutan perintah ..
Bisakah disebutkan tgl anda membuatnya ?
Nama Userform, karena anda hanya mengajukan text makro, tidak dapat kita
ketahui,
Jangan2 juga sama dengan macro yg saya kenal ( misal anda belum sempat
mengubah
ke nama lain)
*Markonatul Qiyem*
