UserFormdan sayfa yazdırma

[sdegirmenci]

Merhaba;
Ekteki dosyamda Form üzerindeki yazdır düğmesi ile "Fiş kasa" sayfasını yazdır dediğimde, Belgelerime kayıt için pencere açılmakta. Bu pencere açılmadan yalnızca sayfanın yazılması için ne yapabilirim. Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Kırmızı ile belirttiğim satırları ilave ettim.

Private Sub CommandButton1_Click()
cevap = MsgBox(" KASA FİŞİNİ YAZDIRMAK İSTİYORMUSUNUZ ..?", vbYesNo)


If cevap = vbNo Then
End If
If cevap = vbYes Then

[COLOR="Red"]Application.ScreenUpdating = False[/COLOR]

    Sheets("Fiş Kasa").PrintOut From:=1, To:=1, Copies:=2, Collate _
        :=True
        
MsgBox "KASA FİŞİ YAZDIRILDI.", vbExclamation, "Sayın   " & Application.UserName
End If

[COLOR="Red"]Application.ScreenUpdating = True[/COLOR]
End Sub

. . .

 

[sdegirmenci]

Sayın hüseyinçoban,
İlginize teşekkür ederim. Kodları uyguladım, değişen bir şey olmadı