Merhaba,
Aşağıdaki kodlarla Userform üzerinden aktif sayfada baskı önizleme yapıyorum. Sayfayı yazdırmadan baskı önizlemeyi kapattığımda UserForma dönüp, "Yazdırma İşlemi İptal Edildi !" mesajını "Tamam" butonuna tıklayıp kapattığımda UserForm kapanıyor ve Excel'e dönüyor. UserForm kapanmasın istiyorum.
Nerede hata yapıyorum?
Aşağıdaki kodlarla Userform üzerinden aktif sayfada baskı önizleme yapıyorum. Sayfayı yazdırmadan baskı önizlemeyi kapattığımda UserForma dönüp, "Yazdırma İşlemi İptal Edildi !" mesajını "Tamam" butonuna tıklayıp kapattığımda UserForm kapanıyor ve Excel'e dönüyor. UserForm kapanmasın istiyorum.
Nerede hata yapıyorum?
Kod:
Private Sub Yazıcı()
Me.Hide
If Application.Dialogs(xlDialogPrintPreview).Show = False Then
Me.Show 0
MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
Else
Me.Show 0
MsgBox "Belgeniz Yazdırıldı.", vbInformation, "BİLGİ"
End If
End Sub