AccessTr.neT

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..

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

(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..

perisanoglu

Kur@l

perisanoglu