[RAPOR] Pdf,Xps, önizleme

Ahmet51 · 05-02-2020, 10:02

Saygıdeğer üstadlarım Ekli Vt de raporlar A2 Kağıt boyutu üzerine oluşturulmuştur. Bu nedenle raporların yazdırılması için PDF veya XPS olarak kayıt yapılması gerekmektedir. Kendim Kısayol Çubuğu Oluşturdum. Rapor açılınca sağ klikle PDF/XPS olarak kaydet ve Raporu kapat olmak üzere Kısayol Çubuğu iki nesne ihtiva etmektedir.PDF/XPS olarak kaydet e tıklanınca sistemin kendi sayfası açılmakta "Yayımla" butonuna basınca kaydetmektedir.

Bu durum pek de hoşuma gitmiyor.

Siz değerli üstadlarımdan isteğim şudur. Rapor yazdırma formuna 3 adet seçenek düğmesi yerleştirip; 1.sine ÖNİZLEM, 2.sine PDF ve 3.sünede XPS kodları atayıp bu üçlü duruma göre rapor işlemleri yapılabilirmi. Bu konuda yardımlarınızı bekliyorum.

Şimdiden sizlere Teşekkürlerimi sunuyorum.

.rar

DssYılSonu.rar (Boyut: 955,15 KB / İndirilme: 111)

onur_can · 06-02-2020, 14:49

Sn Ahmet51
1.Sıradaki rapor için aşağıdaki işlemleri yapınız, diğerlerini de buna göre uyarlarsınız. Dosya yolu olarak C:\TEST klasörü verilmiştir. Sizin kaydedeceğiniz yer başka ise burasını değiştirebilirsiniz.

PDF butonu Click olayına,

Visual Basic
DoCmd.OutputTo acOutputReport, "Rpr_Ayrıntılı_Bilanço", acFormatPDF, "C:\TEST\Rpr_Ayrıntılı_Bilanço.pdf", True

XPS butonun click olayına,

Visual Basic
DoCmd.OutputTo acOutputReport, "Rpr_Ayrıntılı_Bilanço", acFormatXPS, "C:\TEST\Rpr_Ayrıntılı_Bilanço.xps", True

kodlarını ekleyin

Ahmet51 · **Kayıt Tarihi:** 22.03.2011

Aşağıdaki kodla kayıt ediyor ancak, Önce bir Klasör Oluşturma Fonksiyonu olsa Klasör oluştuktan sonrada o Klasöre kaydet se daha mükemmel olacak

Private Sub Önizleme10_Click()
    If Çerçeve56 = 1 Then
    DoCmd.OpenReport "Rpr_Ayrıntılı_Bilanço", acViewPreview
    ElseIf Çerçeve56 = 2 Then
    DoCmd.OutputTo acOutputReport, "Rpr_Ayrıntılı_Bilanço", "PDFFormat(*.pdf)", "D:\Ayrıntılı_Bilanço.pdf", False
    ElseIf Çerçeve56 = 3 Then
    DoCmd.OutputTo acOutputReport, "Rpr_Ayrıntılı_Bilanço", "XPSFormat(*.xps)", "D:\Ayrıntılı_Bilanço.xps", False
    End If
End Sub

onur_can · 06-02-2020, 23:38

D sürücüsünde TEST adına bir klasör var diyelim bu klasörün içerisinde de RAPORLAR klasörü olması gerekiyor diyelim. Raporlarımızı bu klasör içerisine kaydedeceğiz. RAPORLAR klasörü yoksa oluştursun ve bu klasörün içerisine atsın. Eğer RAPORLAR klasörü varsa klasör oluşturmaya zaten gerek yok raporlarımızı bu klasöre kopyalasın. Kod aşağıdaki şekilde olmalıdır.

Visual Basic
Private Sub Önizleme10_Click()
 
Dim KlsYol As String
KlsYol = "D:\TEST\RAPORLAR"
If Len(Dir(KlsYol, vbDirectory)) = 0 Then
   MkDir KlsYol
Else
 
    If Çerçeve56 = 1 Then
    DoCmd.OpenReport "Rpr_Ayrıntılı_Bilanço", acViewPreview
    ElseIf Çerçeve56 = 2 Then
    DoCmd.OutputTo acOutputReport, "Rpr_Ayrıntılı_Bilanço", "PDFFormat(*.pdf)", KlsYol & "\" & "Ayrıntılı_Bilanço.pdf", True
    ElseIf Çerçeve56 = 3 Then
    DoCmd.OutputTo acOutputReport, "Rpr_Ayrıntılı_Bilanço", "XPSFormat(*.xps)", KlsYol & "\" & "Ayrıntılı_Bilanço.xps", True
    End If
End If
 
End Sub

Ahmet51 · 07-02-2020, 08:23

Onur Hocam emeğine sağlık çok teşekkür ederim.İşlem tamamdır.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR	ferda23	9	1.526	08-07-2024, 13:41 Son Mesaj: celalll
	Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk.	adnnfrm	4	522	26-12-2023, 03:42 Son Mesaj: adnnfrm
	[RAPOR] Raporları Baskı önizleme Ve Yazdırma (birden çok)	sefersanli	1	724	15-11-2019, 23:42 Son Mesaj: sefersanli
	[RAPOR] Önce rapor önizleme sonra yazdırma ayarları ve sonra yazdırma yapmak.	axionvb	1	1.301	26-03-2018, 15:18 Son Mesaj: dayday
	[FORM] önizleme	ysmnbkn	1	1.124	21-11-2016, 21:54 Son Mesaj: dsezgin
	[RAPOR] access gizle baskı önizleme	ataek	2	1.986	31-10-2016, 17:59 Son Mesaj: ataek
	[VBA] Baskı önizleme konu yerine rapor görünümü açılmasını istiyorum	okumas	2	2.014	26-08-2016, 15:17 Son Mesaj: okumas
	[RAPOR] Rapor Baskı Önizleme	Goodman	2	2.661	28-03-2016, 23:50 Son Mesaj: Goodman

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL