[RAPOR] Yazıcıdan çıktı almak.(Rapor)

Orion · **Kayıt Tarihi:** 09.10.2009

Merhaba.
Veresiye formunda Liste kutusunda listelenenleri yazıcıdan çıktı almak istiyorum.
Teşekkür ederim.
Dosya ektedir.Açılırken shift tuşuna basınız.

dsezgin · 10-09-2018, 02:04

Visual Basic
Private Sub Dugme_Click()
Dim SrgYp As QueryDef, RapAdi As String
RapAdi = "Gecici"
Set SrgYp = CurrentDb.CreateQueryDef(RapAdi , Me.Liste0.RowSource)
DoCmd.OpenQuery RapAdi , acViewNormal, acReadOnly
DoCmd.PrintOut acPrintAll
DoCmd.Close acQuery, RapAdi 
DoCmd.DeleteObject acQuery, RapAdi 
End Sub

ile yazdirilabilir. Rapor tasarlayip Docmd.openreport .....acnormal secenegi ile yazdirilabilir.
On izlemede iken Ctrl+P ile de yaziciya gonderilir.

Orion · 10-09-2018, 14:41

Sayın dsezgin;
Yazıcıdan çıktı alma tamamdır,oldu.
Ön izleme yapmak istediğimde ise ön izleme yapıyor fakat userform gizlenmiyor.
Ön izlemenin üstünde duruyor.
Ön izleme kodları aşağıdaki gibidir.
Teşekkür ederim.

Visual Basic
Private Sub Onizle1_Click()
On Error GoTo Err_Onizle1_Click
 
    Dim stDocName As String
    stDocName = "Veresiye1"
    DoCmd.OpenReport stDocName, acPreview, , "Sorgu1"
Exit_Onizle1_Click:
    Exit Sub
 
Err_Onizle1_Click:
    MsgBox Err.Description
    Resume Exit_Onizle1_Click
End Sub

Orion · **Kayıt Tarihi:** 09.10.2009

Dosyayı ekte yolluyorum.

dsezgin · 10-09-2018, 18:33

Rapor ustte gorunmesi icin raporu kalici(Pop Up) ayarlamalisiniz. sorgu1 yapilmis, Liste0'da ki verilerin yazicidan cikmasini istemiyor musunuz?

Veresiye1 raporunu yazdirmak istiyorsaniz
DoCmd.OpenReport stDocName,acViewNormal
olarak yazmalisiniz.

On izleme ise
DoCmd.OpenReport stDocName, acPreview
olarak yazmalisiniz.

Liste kutusu suzulen kayitlari ise bir onceki mesajda ki proseduru kullanmalisiniz.

Orion · 10-09-2018, 20:29

Merhaba.
Sayın dsezgin, teşekkür ederim.
Şimdilik listboxta listelenenleri yazdırmaya karar aldım.
Ön izlemeden vaz geçtim.Çünkü accessi görünmez yapıyorum.O yüzden vazgeçtim.
Sayfayı sütunları sığdıracak şekilde kod ile ayarlanabilirmiyiz.
Mevcut kodlar aşağıdadır.

Visual Basic
On Error GoTo Err_Onizle1_Click
Dim SrgYp As QueryDef, RapAdi As String
RapAdi = "Gecici"
Set SrgYp = CurrentDb.CreateQueryDef(RapAdi, Me.Liste0.RowSource)
DoCmd.OpenQuery RapAdi, acViewNormal, acReadOnly
DoCmd.PrintOut acPrintAll
DoCmd.Close acQuery, RapAdi
DoCmd.DeleteObject acQuery, RapAdi
Exit_Onizle1_Click:
Exit Sub
 
Err_Onizle1_Click:
MsgBox Err.Description
Resume Exit_Onizle1_Click

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[RAPOR] Raporda Hyperlink çıktı Alma	ulsogr	4	373	09-01-2025, 10:08 Son Mesaj: ulsogr
	Access Ile Web Den Veri Almak Ve Güncelleme Yapmak.	karamurat42	0	341	08-10-2024, 15:42 Son Mesaj: karamurat42
	Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak	ozan028	5	495	09-09-2024, 17:14 Son Mesaj: ozan028
	Farklı Tablodan Mükerrer Olmayan Bilgi Almak	bilservisci	5	529	17-12-2023, 18:04 Son Mesaj: dsezgin
	Access'e Excelden Dış Veri Almak	snapper	3	499	02-10-2023, 22:55 Son Mesaj: dsezgin
	[VBA] Alt Rapor Içeren Bir Rapor Her Personel Için Ayrı Excel Sayfasına Atılabilir Mi?	abkbek	12	1.354	29-01-2023, 13:29 Son Mesaj: abkbek
	Başlıkları Aynı Olmayan EXcel Tablosunu Dosya Bul Butonu Ile Accese Veri Almak	snapper	1	516	17-12-2022, 03:13 Son Mesaj: dsezgin
	Aktif Formda Raporu Pdf Olarak Almak	ankaram	4	438	06-11-2022, 22:40 Son Mesaj: onur_can

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL