点击下载此附件
图 示:
源 码:
Private Sub cmdExportGraph_Click()
Dim strPath As String
With FileDialog(4)
' .Filters.Clear
.Title = "选择附件路径"
If .Show Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
' DoCmd.OpenReport "报表1"
DoCmd.OutputTo acOutputReport, "报表1", acFormatPDF, strPath & "\" & "销售对比图.pdf"
DoCmd.Close acReport, "报表1", acSaveNo
MsgBox "导出成功。", vbInformation
End Sub
|
Access软件网交流QQ群(群号:198465573) |
|