atau coba kunjungi pakarnya access disini<http://www.lebans.com/reporttopdf.htm> nggak perlu install lainnya, cuman butuh pdf reader untuk melihat hasil pdf-nya
2008/11/20 Lukito Hartono <[EMAIL PROTECTED]> > Mas Harry, > > Saya biasa pakai CutePDF, gratis. > Bisa didownload di www.cutepdf.com > Ini Coding-nya: > > Public Function PrintToPDF(argReportName As String) > On Error GoTo Hell > > Const PDFWriter As String = "CutePDF Writer" > Dim objPrinterDefault As Access.Printer > Dim objPrinter As Access.Printer > Dim booPrinterExist As Boolean > > Set objPrinterDefault = Application.Printer > > For Each objPrinter In Application.Printers > If objPrinter.DeviceName = PDFWriter Then > booPrinterExist = True > Set Application.Printer = objPrinter > objPrinter.PaperSize = acPRPSA4 'Set > Papersize menjadi A4 > DoCmd.OpenReport argReportName, acViewNormal > 'DoCmd.OpenReport argReportName, acViewPreview 'Jika Preview > ingin tetap muncul > 'DoCmd.PrintOut acPrintAll > 'setelah Preview langsung Print > Exit For > End If > Next > > If Not booPrinterExist Then > MsgBox "CutePDF Writer Printer is not exist", vbCritical, "Information" > End If > > WayOut: > On Error Resume Next > Application.Printer = objPrinterDefault > Set objPrinterDefault = Nothing > Set objPrinter = Nothing > Exit Function > Hell: > MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical, > "Printing Problem" > Resume WayOut > End Function > > Mudah-mudahan berguna. > Thanx. :D > > Lukito Hartono > > > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com ---------------------------------------------
