Sub outputpdf()
	'Need to be put Report name
    Dim myPath As String
    Dim strReportName As String
    Dim stritem As String
    Dim strcont As String
    Dim strid As String
    Dim struniq As String

    DoCmd.OpenReport "rptMonthyExpRpt", acViewPreview
    myPath = "\\QGLSAN-QC\Home\a.prasad\Desktop\"
    strReportName = "MyReport.pdf"
    'strReportName = Item + contract_number + "_"+ ".pdf"
    DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath & strReportName, False
    DoCmd.Close acReport, "rptMonthyExpRpt"
End Sub