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
