Question

我想将PDF文件保存到桌面。这段代码我已将它们保存在bin文件夹中

Dim pdf = gvwProyectos.SelectedRows.Count > 0
        Dim pdfDoc As New Document(iTextSharp.text.PageSize.A4)
        Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("Reporte.pdf", FileMode.Create))

我正在使用iTextSharp btw。

Answer 1

您可以使用Environment.GetFolderPath获取用户的桌面路径，然后在文件名前加上它。

要使用Path.Combine，您需要在表单类之前添加Imports System.IO，如果您还没有这样做的话。

Dim pdf = gvwProyectos.SelectedRows.Count > 0
Dim pdfDoc As New Document(iTextSharp.text.PageSize.A4)
Dim filename As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Reporte.pdf")
Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream(filename, FileMode.Create))

Answer 2

好的，我已经知道该怎么做了，但我会在这里留下对我有用的东西。

        Dim pdfDoc As New Document(iTextSharp.text.PageSize.A4)
        Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\\" + "yourPDFdesiredName.pdf", FileMode.Create))

将PDF文件保存到桌面[VB .NET]

2 个答案: