Yazdır Butonu çalışmıyor

[sweet]

merhaba arkadaşla macroda yapılmış bir vb tabanlı bir prog var ve ben buna "YAZDIR" butonu kaydum ve aşağıdaki kodu yazdım çalışmadı

Private Sub yaz_Click()
On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
DataAc.Hide
Sheets("Print").PrintPreview
DtaAc.Show
Range("A1").Select
Else
Sheets("Print").PrintOut
End If
End Sub

daha sonra "On Error Resume Next " kısmını sildim hata vermedi fakat bu seferde prog kitliyor

arkadaşlar ne yapmam gerekiyor "Yazdır" butonuna basıldığında sayfa ayarını yapabilecek sonra print deyip yazdıracak hepsi bu :agla: :?

 

[ocamsul]

Sn. sweet

Ben bu kodu denedim bende çalıştı. acaba sayfa ismini Print olarak vermeyimi unuttunki? sorumsuz çalışıyo. ama baskı önizleme mesajına hayır dersen. evet denildiğinde baskı önizlemeden çıkıyo ve yazdırma işlemini yapmıyo.

 

[sweet]

SELAM ocamsul

yukarıda yazılan kod benim prog göre uyarlanmış hali farklı bir isim olamaz

ama kodu çalıştırıp yazdır butonuna basıp ön izlemeyi kabul ettiğimde prog kitleniyor bende mecburen kapatmak zorunda kalıyorum. :yardim:

 

[sweet]

birde arkadaşlar eğer prin ayarlarını otomatik yapabilecek bir sistem varmı eğer varsa çok iyi olur. :yardim: :yardim: :yardim: :yardim: :yardim: :dua:

 

[nziya]

Sayın sweet dosyanızı ekleyin bir bakalım.

 

[Cemil1]

Kırmızı satırı silip yeşili yazın.

Private Sub yaz_Click()
On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
DataAc.Hide
Sheets("Print").PrintPreview
DtaAc.Show
DataAc.Show
Range("A1").Select
Else
Sheets("Print").PrintOut
End If
End Sub