using IronPdf;

Imports IronPdf

private void GeneratePDFFromTextButton_Click(object sender, EventArgs e)
{
    // It's recommended to set your license key once at application startup.
    // IronPdf.License.LicenseKey = "YourLicenseKey-GetYourKeyFromIronPdf.com"; 
    // If no key is set, IronPDF will watermark PDFs after a trial period.

    // Use SaveFileDialog to let the user choose where to save the PDF
    SaveFileDialog saveFileDialog1 = new SaveFileDialog();
    saveFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments); // Default to My Documents
    saveFileDialog1.Title = "Save PDF File As";
    saveFileDialog1.DefaultExt = "pdf";
    saveFileDialog1.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*";
    saveFileDialog1.FilterIndex = 1; // Start with PDF files selected
    saveFileDialog1.RestoreDirectory = true;

    if (saveFileDialog1.ShowDialog() == DialogResult.OK)
    {
        string filename = saveFileDialog1.FileName;

        // The core of PDF generation from HTML/Text using IronPDF
        // IronPDF's ChromePdfRenderer accurately renders HTML, CSS, and JavaScript.
        var renderer = new ChromePdfRenderer();

        // The RenderHtmlAsPdf method converts an HTML string to a PDF document.
        // This is incredibly powerful for generating dynamic reports, invoices, tickets, etc.
        // from HTML templates.
        using (var pdfDocument = renderer.RenderHtmlAsPdf(PdfText.Text))
        {
            pdfDocument.SaveAs(filename);
        }

        MessageBox.Show("PDF Generated Successfully at: " + filename, "Success", MessageBoxButtons.OK, MessageBoxIcon.Information);
    }
}

Private Sub GeneratePDFFromTextButton_Click(ByVal sender As Object, ByVal e As EventArgs)
	' It's recommended to set your license key once at application startup.
	' IronPdf.License.LicenseKey = "YourLicenseKey-GetYourKeyFromIronPdf.com"; 
	' If no key is set, IronPDF will watermark PDFs after a trial period.

	' Use SaveFileDialog to let the user choose where to save the PDF
	Dim saveFileDialog1 As New SaveFileDialog()
	saveFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) ' Default to My Documents
	saveFileDialog1.Title = "Save PDF File As"
	saveFileDialog1.DefaultExt = "pdf"
	saveFileDialog1.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*"
	saveFileDialog1.FilterIndex = 1 ' Start with PDF files selected
	saveFileDialog1.RestoreDirectory = True

	If saveFileDialog1.ShowDialog() = DialogResult.OK Then
		Dim filename As String = saveFileDialog1.FileName

		' The core of PDF generation from HTML/Text using IronPDF
		' IronPDF's ChromePdfRenderer accurately renders HTML, CSS, and JavaScript.
		Dim renderer = New ChromePdfRenderer()

		' The RenderHtmlAsPdf method converts an HTML string to a PDF document.
		' This is incredibly powerful for generating dynamic reports, invoices, tickets, etc.
		' from HTML templates.
		Using pdfDocument = renderer.RenderHtmlAsPdf(PdfText.Text)
			pdfDocument.SaveAs(filename)
		End Using

		MessageBox.Show("PDF Generated Successfully at: " & filename, "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
	End If
End Sub

private void GeneratePDFFromURLButton_Click(object sender, EventArgs e)
{
    // IronPdf.License.LicenseKey = "YourLicenseKey-GetYourKeyFromIronPdf.com"; 

    if (string.IsNullOrWhiteSpace(URL.Text))
    {
        MessageBox.Show("Please enter a valid URL.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Warning);
        return;
    }

    SaveFileDialog saveFileDialog1 = new SaveFileDialog();
    saveFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);
    saveFileDialog1.Title = "Save PDF From URL As";
    saveFileDialog1.DefaultExt = "pdf";
    saveFileDialog1.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*";
    saveFileDialog1.FilterIndex = 1;
    saveFileDialog1.RestoreDirectory = true;

    if (saveFileDialog1.ShowDialog() == DialogResult.OK)
    {
        string filename = saveFileDialog1.FileName;
        try
        {
            var renderer = new ChromePdfRenderer();
            // RenderUrlAsPdf fetches the content from the URL and converts it to PDF.
            // This is excellent for archiving web pages or creating PDFs from online reports.
            using (var pdfDocument = renderer.RenderUrlAsPdf(URL.Text))
            {
                pdfDocument.SaveAs(filename);
            }
            MessageBox.Show("PDF from URL Generated Successfully at: " + filename, "Success", MessageBoxButtons.OK, MessageBoxIcon.Information);
        }
        catch (Exception ex)
        {
            MessageBox.Show("Error generating PDF from URL: " + ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
        }
    }
}

Private Sub GeneratePDFFromURLButton_Click(ByVal sender As Object, ByVal e As EventArgs)
	' IronPdf.License.LicenseKey = "YourLicenseKey-GetYourKeyFromIronPdf.com"; 

	If String.IsNullOrWhiteSpace(URL.Text) Then
		MessageBox.Show("Please enter a valid URL.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
		Return
	End If

	Dim saveFileDialog1 As New SaveFileDialog()
	saveFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
	saveFileDialog1.Title = "Save PDF From URL As"
	saveFileDialog1.DefaultExt = "pdf"
	saveFileDialog1.Filter = "PDF files (*.pdf)|*.pdf|All files (*.*)|*.*"
	saveFileDialog1.FilterIndex = 1
	saveFileDialog1.RestoreDirectory = True

	If saveFileDialog1.ShowDialog() = DialogResult.OK Then
		Dim filename As String = saveFileDialog1.FileName
		Try
			Dim renderer = New ChromePdfRenderer()
			' RenderUrlAsPdf fetches the content from the URL and converts it to PDF.
			' This is excellent for archiving web pages or creating PDFs from online reports.
			Using pdfDocument = renderer.RenderUrlAsPdf(URL.Text)
				pdfDocument.SaveAs(filename)
			End Using
			MessageBox.Show("PDF from URL Generated Successfully at: " & filename, "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
		Catch ex As Exception
			MessageBox.Show("Error generating PDF from URL: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
		End Try
	End If
End Sub