Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/03/2010 16:14
Konu Sahibi
perisanoglu
Yorumlar
5
Okunma
1874
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

perisanoglu

Aktif Üye
MU.... YI....
 47
 142
 19
 30/10/2008
64
 Ankara
 
 Ofis 2007
 19/01/2018,16:12
Çözüldü 
herkese iyi günler kolay gelsin..

formdaki bir butondan formun bağlı olduğu ve verisini sorgudan alarak geçerli kayıt yazdıran raporu yazdırıyorum..ama rapordan her seferinde 2 adet çıktı almam gerekiyor..bunu aşağıdaki kodlarla halletmiştim.

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-1 BELGESİ ARKA", acViewLayoud

DoCmd.PrintOut acPrintAll, , , , 2


Exit_cmdDWood6_Click:
Exit Sub

Err_cmdDWood6_Click:
MsgBox err.Description
Resume Exit_cmdDWood6_Click
End If
End Sub

office 2007 versiyonunda sorunsuz çalışıyor. Raporada zaman dolduğunda özelliğine kapat kodu girerek süre ölçer aralığınıda 1000 yaptım rapor çıktı alındıktan sonra otomatik kapanıyordu..ama office 2003 de acViewLayoud özelliği yok..kodu aynen bıraktığım zaman ropardan 1 adet formdan iki adet yazıyor..formu yazmaması lazım... bu kodu

DoCmd.OpenReport "EK-1 BELGESİ ARKA", acViewPreview

DoCmd.PrintOut acPrintAll, , , , 2

şeklinde düzenlediğim zamanda rapor baskı önizleme modunda açık kalıyor..
office 2003 e acViewLayoud özelliğini ekleyebileceğim bir referans varmı..yada formdaki yukarıda verdiğim kodda yazdırma işleminden sonra açık kalan önizleme raporu kapattırabilirmiyim???

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



Kullanici Avatari

accessman

Aktif Üye
 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
ben iki tane yazdıracaksam
aynı kodu ikikez yazıyorum
acViewLayoud
ne ifade ediyor bilemediğim için bir şey deyemeyeceğim


@benbendedeilem

Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.602
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:38
Çözüldü 

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

strReportName = "EK-1 BELGESİ ARKA"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
DoCmd.PrintOut acPrintAll, , , acHigh, 2
end if


üstteki kodu deneyebilir misin ?


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

perisanoglu

Aktif Üye
MU.... YI....
 47
 142
 19
 30/10/2008
64
 Ankara
 
 Ofis 2007
 19/01/2018,16:12
Çözüldü 
sayın sledgeap kodu denedim..rapor yine açık kalıyor..yazdırma bitince raporun kapanması lazım..biliyosun benim işler malum yoğun..yarın vakit bulabilirsem örnek hazırlayım..yardımcı olmanız daha kolay olur sanırım..



Kullanici Avatari

ayhan2122

Uzman
 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çözüldü 
Aşağıdaki kodu dener misiniz ? Img-grin

Kod:
DoCmd.OpenReport "Rapor1", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 2
DoCmd.Close acReport, "Rapor1"


Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.

Kullanici Avatari

perisanoglu

Aktif Üye
MU.... YI....
 47
 142
 19
 30/10/2008
64
 Ankara
 
 Ofis 2007
 19/01/2018,16:12
Çözüldü 
(13/03/2010 00:52)ayhan2122 Adlı Kullanıcıdan Alıntı: Aşağıdaki kodu dener misiniz ? Img-grin

Kod:
DoCmd.OpenReport "Rapor1", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 2
DoCmd.Close acReport, "Rapor1"


çok çok teşekkür ederim sayın ayhan2122..bu kodla tam istediğim gibi çalıştı..sorumun cevabı verilmiş oldu..size nasıl teşekkür edeceğimi bilemiyorum...elleriniz det görmesin...iyi çalışmalar kolay gelsin...




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Raporda Checkbox Görünümü Neden Metinsel Evet/hayır Olarak Gözükür. Oğuz Türkyılmaz 9 124 16/11/2018, 15:41
Son Yorum: Oğuz Türkyılmaz
Çözüldü Raporda Verileri Yanyana Yazdırmak alimadam 4 112 16/11/2018, 00:15
Son Yorum: alimadam
Çözüldü Çok Sayfalı Raporda İlk Sayfayı Yazdırmak İstiyorum alimadam 2 82 14/11/2018, 12:02
Son Yorum: alimadam
Çözüldü Raporda Tarih Farkı Hesaplama notrino 2 57 12/11/2018, 14:23
Son Yorum: notrino
Çözüldü Raporda Boş Veri Varsa Çıkmasın Ama Rapordaki Tablom Bozulmasın alimadam 7 239 02/11/2018, 23:48
Son Yorum: alimadam

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444