Yazdır Butonu çalışmıyor

Katılım
1 Mart 2006
Mesajlar
46
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: :?
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
1 Mart 2006
Mesajlar
46
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:
 
Katılım
1 Mart 2006
Mesajlar
46
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:
 
Katılım
3 Nisan 2005
Mesajlar
347
Excel Vers. ve Dili
office xp tr
Sayın sweet dosyanızı ekleyin bir bakalım.
 
Katılım
5 Mayıs 2005
Mesajlar
72
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
 
Üst