• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

her sayfayı onay alarak yazırma

  1. BERKBABA44

    Çözüldü Her sayfayı onay alarak yazırma

    Dim Yazici As String, onay As Byte Yazici = Application.Dialogs(xlDialogPrinterSetup).Show If Yazici = False Then Exit Sub Onay = MsgBox("Dizi Pusulası Sayfasını Yazdırmak istiyor musunuz?", vbExclamation + vbYesNo + vbDefaultButton2) If Onay = vbNo Then Exit Sub Sheets("Dizi...
Geri
Üst