Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

yazdırma butonu hakkında

perisanoglu
perisanoglu
Access Cevaplanmış Soruları
2
6849

yazdırma butonu hakkında

Çözüldü #1
perisanoglu
Emirdağlı
perisanoglu
Bul
Aktif Üye
Adı Soyadı: Mu.... YI....
Yaşı: 53
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 27/02/2020,01:27
Yorumları: 142
Konuları: 19
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 64
herkese iyi çalışmalar...

formumda iki tane yazdır butonu kullanıyorum..birinden tıklardığında ilgili raporu iki nüsha olarak yazdırıyor.bu butondan kaç nüsha yazdırılacağı seçilemiyor..otomatik olarak iki nüsha çıktı veriyor.. bunda bir sorun yok..aşağıdaki kodla hallediyorum..
Kod:
Private Sub cmdDWood6_Click()
On Error GoTo Err_cmdDWood6_Click
If MsgBox("ARAÇ BİLGİLERİNİ FORM'A YAZDIRMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ? İKİ SAYFA FORM YAZDIRILACAK...", 68, "BELGEYE YAZDIR") = 6 Then
    
DoCmd.OpenReport "EK-9 BELGESİ", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 2
DoCmd.Close acReport, "EK-9 BELGESİ"

Exit_cmdDWood6_Click:
    Exit Sub

Err_cmdDWood6_Click:
    MsgBox err.Description
    Resume Exit_cmdDWood6_Click
    End If
End Sub
ikinci butonda tıklandığında raporu önislama modunda açarak cmdPrint komutunu çalıştırıyorum..bunu daha önce makro ile hallediyordum office 2007 de sorunsuz çalışıyordu..ama makro ile yaptığım office2003 ve alt sürümlerinde çalışmıyor..bunlarda çalışması için runcommand komutunu kullandım..
Kod:
Private Sub Komut109_Click()
DoCmd.OpenReport "EK-9 BELGESİ", acViewPreview
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "EK-9 BELGESİ"
End Sub
yazdırma seçim penceresinden yazılacak kopya sayısını seçip yazdır dediğimde sorun yok istenilen kopya sayısı kadar yazdırıp raporu kapatıyor...ama yazdırma penceresinden iptal tuşuna basıldığı zaman aşağıdaki hatayı veriyor..nasıl bir kod eklemeliyim ki iptal dediğim zaman raporu kapatsın..
[Resim: ekranalntsb.png]

yardımlarınız için şimdiden teşekkürler..
.rar yazdır.rar (Dosya Boyutu: 49,38 KB | İndirme Sayısı: 153)
Cevapla
Çözüldü #2
Kur@l
AccessTR.Net
Kur@l
Bul
Uzman
Adı Soyadı:
Yaşı: 48
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 17/10/2024,00:40
Yorumları: 2.047
Konuları: 59
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 1.658
Kolay gelsin
Kod:
Private Sub Komut109_Click()
on error resume next   ' Bu satırı eklersen sıkıntı olmaz
DoCmd.OpenReport "EK-9 BELGESİ", acViewPreview
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "EK-9 BELGESİ"
End Sub
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
perisanoglu
Emirdağlı
perisanoglu
Bul
Aktif Üye
Adı Soyadı: Mu.... YI....
Yaşı: 53
Konum: Ankara
Ofis Versiyonu: Ofis 2007
Son Oturumu: 27/02/2020,01:27
Yorumları: 142
Konuları: 19
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 64
(09/06/2010, 20:12)Kural yazdı: Kolay gelsin
Kod:
Private Sub Komut109_Click()
on error resume next   ' Bu satırı eklersen sıkıntı olmaz
DoCmd.OpenReport "EK-9 BELGESİ", acViewPreview
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "EK-9 BELGESİ"
End Sub

ilgin ve emeğin için çok teşekkür ederim sayın kural...istediğim oldu sorun ortadan kalktı..sorum cevaplanmış oldu..herkese iyi çalışmalar..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task