sayın hocam raporu önzile butonuyla teklif onaylı raporunu pdf olarak kaydettiriyor. ayrıca projenin içinde teklifonayli raporu mevcut. kullandığım kod da şu şekilde raporu önizle butonundaki.

[/vb]Private Sub Komut30_Click()
MkDir CurrentProject.Path & "\" & "teklifler" & "\" & Date
If vbYes = MsgBox("Yazdırılsınmı? Hayır Derseniz Teklif önizleme Yapılacak", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Yazdır / önizle") Then
DoCmd.OpenReport "teklinonayli"
Else
DoCmd.OpenReport "teklifonayli", A_PREVIEW
End If


Dim MyReport As String
MyReport = CurrentProject.Path & "\" & "teklifler" & "\" & Date & Me.sayi & ".pdf"
DoCmd.OutputTo acOutputReport, "teklifonayli", "PDFFormat(*.pdf)", MyReport, False, "", 0
End Sub

burda kullandığım baştaki MkDir İN kullanımı tabi yalnış.
yaptırmaya çalıştığım ise şu
1) raporu önzile butonuna bastığımda projenin bulunduğu yerdeki teklifler klasöründe eğer bugün tarihli bir klasör yoksa eklesin. ama yoksa varsa eklmemiyecek tabi...
2) klasörü ekledikden sonra teklif onaylı raporunu programın bulunduğu yerdeki teklifler klasöründa az önceki kodla oluşturduğumuz date() bugün tarihli klasöre pdf olarak kaydetsin.

sanırım 2003 kullanıyosunuz hocam eklediğiniz örnekde pdf çevirme için dll ler kullanıyorsunu heralde. ben 2007 kullanıyorum.
o yuzden pdf çevirtme yöntemlerimiz farklı sanırım.

umarım ne yapmaya çalıştığımı anlatabilmişimdir. tşkler ilginize