Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/06/2010 17:34
Konu Sahibi
perisanoglu
Yorumlar
2
Okunma
3835
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

perisanoglu

Emirdağlı
Kullanici Avatari
Aktif Üye
M.... Y....
142
30/10/2008
64
Ankara
Ofis 2007
26/01/2017,13:13
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

yardımlarınız için şimdiden teşekkürler..


Ek Dosyalar
.rar   yazdır.rar (Dosya Boyutu: 49,38 KB / İndirme Sayısı: 120)
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
18/09/2017,01:08
Çözüldü 
Kolay gelsin

Kod:
1
2
3
4
5
6
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

perisanoglu

Emirdağlı
Kullanici Avatari
Aktif Üye
M.... Y....
142
30/10/2008
64
Ankara
Ofis 2007
26/01/2017,13:13
Çözüldü 
(09/06/2010, 20:12)Kural Adlı Kullanıcıdan Alıntı: Kolay gelsin

Kod:
1
2
3
4
5
6
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


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
yazdırma butonu hakkında


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Onay Kutusunu İşaretleyince Butonu Gösterme te-kin 6 394 14/08/2017, 19:44 te-kin
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 957 14/07/2017, 08:32 Gokcen Akan
Çözüldü Formda Arama Yapınca Gelen Raporu Yazdırma ankaram 2 284 05/06/2017, 10:06 ankaram
Çözüldü Verileri Taşıma Hakkında. serkan1985 4 298 02/06/2017, 20:51 serkan1985
Çözüldü Checkbox Etiket Adını Yazdırma yahzee_61 12 603 28/05/2017, 22:49 yahzee_61

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.