trungminh > 12-09-16, 04:22 PM
(12-09-16, 04:01 PM)ongke0711 Đã viết:Mã PHP:Private Sub In_Click()
Dim myPath As String
Dim strReportName As String
DoCmd.OpenReport "Baocaonam", acViewPreview
myPath = "C:\Documents and Settings\"
strReportName = "Baocaonam_" & Format(Date(),"ddmmyyyy") & ".pdf"
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath & strReportName, True
DoCmd.Close acReport, "Baocaonam"
End Sub