Docmd.sendobeject Hakkında

Mr.Midnight · 22-03-2021, 11:27

Merhaba;
Yaptığım programda DoCmd.Sendobject acSendForm yöntemi ile outlookdan PDF ekli mail gönderiyorum. Ancak gönderdiğim mail ekindeki PDF'nin sayfa yönünü dikey görünümden yatay görünüme çeviremedim. Bu konuda yardımcı olmanızı rica ederim.

Kullanmış olduğum kodun örneği aşağıdaki gibi...

DoCmd.SendObject acSendForm, "Form adı", "PDFFormat(*.pdf)", kime, bilgi, , "Konu Başlığı", Konu Metni", False

akd27 · 22-03-2021, 15:22

Çalışmanın bir örneğini ekleseydin daha iyi olurdu bence.

dsezgin · 22-03-2021, 15:38

(22-03-2021, 11:27)Mr.Midnight demiş ki: PDF'nin sayfa yönünü dikey görünümden yatay görünüme çeviremedim.

Form baskı ön izleme ile sayfa özelliklerinden yatay olarak ayarları değiştirip deneyin.

Mr.Midnight · 22-03-2021, 17:15

Sayın dsezgin hocam;
Söylediğiniz yöntemi inceledim ancak form görünümünde baskı ön izleme özelliğini açmıyor. Ctrl+P klavye kısa yolunu kullandığımda da direkt olarak yazdırma seçeneklerine giriyor.

dsezgin · 22-03-2021, 20:16

(22-03-2021, 17:15)Mr.Midnight demiş ki: form görünümünde baskı ön izleme özelliğini açmıyor. Ctrl+P klavye kısa yolunu kullandığımda da direkt olarak yazdırma seçeneklerine giriyor.

Formu tasarım modunda acın, Access Üst Menu çubuğunda Dosya---Yazdır---Baskı ön izleme ile ayarlama yaparsınız.

onur_can · 22-03-2021, 22:13

Sn Mr.Midnight
Aşağıdaki kod ile sorununuzu çözebilirsiniz.

Visual Basic
Private Sub BtnFormuYatayGonder_Click()
On Error GoTo Hata
Dim stFormAdi As String
Dim yzc As Printer
Dim frm As Form
 
stFormAdi = "DenemeFormu"
 
Set yzc = Application.Printers("Microsoft Print to PDF")
yzc.Orientation = acPRORLandscape
' Dikey isterseniz acPRORPortrait komutunu kullanın
 
DoCmd.OpenForm stFormAdi, acViewPreview, , , acHidden
 
Set frm = Forms(stFormAdi)
Set frm.Printer = yzc
 
DoCmd.SendObject acSendForm, stFormAdi, "PDFFormat(*.pdf)", kime, , , "Konu Başlığı", "Konu Metni"
 
DoCmd.Close acForm, stFormAdi
Exit Sub
Hata:
End Sub

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Docmd.gotorecord,,newrec Sonrası Otomatik Dolu Metin Kutusu	meceka	6	817	10-11-2022, 15:45 Son Mesaj: meceka
	[VBA] Docmd Komutunun Çok Alanlı Yapıya Uygulanması	fatihsipahi	2	1.086	08-09-2018, 11:12 Son Mesaj: fatihsipahi
	[RAPOR] Docmd.openreport/whereCondition	Elif Karabina	13	3.727	22-04-2017, 23:36 Son Mesaj: Elif Karabina
	[FORM] alt form docmd go to newe record	koruyucu	5	2.210	09-02-2017, 08:40 Son Mesaj: EminA
	DoCmd.TransferText	msonusali	0	1.605	01-07-2014, 21:14 Son Mesaj: msonusali
	[FORM] docmd. ile dosya import	msonusali	1	1.502	24-06-2014, 17:11 Son Mesaj: dsezgin
	[MAKRO] DoCmd.CopyObject komutu Hakkında	galips26	2	2.578	16-06-2014, 07:19 Son Mesaj: galips26
	[FONKSiYON] DOCMD nesnesi hakkında ?	prokariyer	2	2.945	19-01-2014, 11:42 Son Mesaj: prokariyer

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL