Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.Web.Services
Imports CrystalDecisions.web.Services.Enterprise
Imports CrystalDecisions.web
Imports CrystalDecisions.Shared
Imports CrystalDecisions.ReportSource

Module PDF_CONVERTER

    Public Fname As String = ""
    Public Invoice_Report_Var As New Meyaah.Invoice_Report

    Public Function CONVERT() As Boolean

        Dim crExportOptions As ExportOptions = New ExportOptions
        Dim crDiskFileDestinationOptions As DiskFileDestinationOptions = New DiskFileDestinationOptions

        Fname = "c:\\TEMP\\" + "فاتورة مياه" + ".pdf"
        crDiskFileDestinationOptions.DiskFileName = Fname
        crExportOptions = Invoice_Report_Var.ExportOptions

        crExportOptions.DestinationOptions = crDiskFileDestinationOptions
        crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
        crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat

        
        Return True


    End Function
End Module