C#でQRコードを印刷する方法

// Reference to libraries
using IronPrint;                    // Library for printing functionalities
using IronPdf;                      // Library for PDF handling
using IronQr;                       // Library for QR code generation
using IronSoftware.Drawing;         // Library for image processing

' Reference to libraries
Imports IronPrint ' Library for printing functionalities
Imports IronPdf ' Library for PDF handling
Imports IronQr ' Library for QR code generation
Imports IronSoftware.Drawing ' Library for image processing

// Code to create a QR code using IronQR
QrCode myQr = QrWriter.Write("Hello IronPrint!");  // Generate a QR code with the message
AnyBitmap qrImage = myQr.Save();                    // Save QR code as an image
qrImage.SaveAs("assets/qr.png");                    // Save the png image file to the "assets" folder

// For more advanced QR codes, you can include URLs, contact info, or WiFi credentials
// Example: QrCode urlQr = QrWriter.Write("___PROTECTED_URL_52___");
// Example: QrCode wifiQr = QrWriter.Write("WIFI:T:WPA;S:NetworkName;P:Password;;");

' Code to create a QR code using IronQR
Dim myQr As QrCode = QrWriter.Write("Hello IronPrint!")  ' Generate a QR code with the message
Dim qrImage As AnyBitmap = myQr.Save()                   ' Save QR code as an image
qrImage.SaveAs("assets/qr.png")                          ' Save the png image file to the "assets" folder

' For more advanced QR codes, you can include URLs, contact info, or WiFi credentials
' Example: Dim urlQr As QrCode = QrWriter.Write("___PROTECTED_URL_52___")
' Example: Dim wifiQr As QrCode = QrWriter.Write("WIFI:T:WPA;S:NetworkName;P:Password;;")

// Code to convert QR Image to PDF using IronPDF
var imageFiles = Directory.EnumerateFiles("assets").Where(f => f.EndsWith(".jpg") || f.EndsWith(".png"));  // Reading QR codes image files
// Convert the QR code images to a PDF and save it
ImageToPdfConverter.ImageToPdf(imageFiles).SaveAs("assets/composite.pdf");

// For batch processing multiple QR codes
// You can also add custom headers, footers, or watermarks to your PDFs
// This is useful for branding or adding tracking information

Imports System.IO
Imports System.Linq

' Code to convert QR Image to PDF using IronPDF
Dim imageFiles = Directory.EnumerateFiles("assets").Where(Function(f) f.EndsWith(".jpg") OrElse f.EndsWith(".png")) ' Reading QR codes image files
' Convert the QR code images to a PDF and save it
ImageToPdfConverter.ImageToPdf(imageFiles).SaveAs("assets/composite.pdf")

' For batch processing multiple QR codes
' You can also add custom headers, footers, or watermarks to your PDFs
' This is useful for branding or adding tracking information

// Code for Printing using IronPrint
// Get available printer names
List<string> printerNames = Printer.GetPrinterNames();

// Create print settings object
PrintSettings printerSettings = new PrintSettings();

foreach(string printerName in printerNames)
{
    // Set desired printer name
    if(printerName.Equals("Microsoft Print to PDF"))
        printerSettings.PrinterName = printerName;
}

// Configure print settings
printerSettings.PaperSize = PaperSize.A4;                    // Set paper size
Margins margins = new Margins(30, 10);                       // Set paper margins
printerSettings.PaperMargins = margins;                      // Apply margins

// Additional settings for production environments
printerSettings.Grayscale = false;                           // Color printing for better QR code contrast
printerSettings.NumberOfCopies = 1;                          // Set number of copies
printerSettings.Dpi = 300;                                   // High DPI for clear QR codes

// Print the PDF
Printer.Print("assets/composite.pdf", printerSettings);      // Print the PDF

// For interactive printing with user dialog
// Printer.ShowPrintDialog("assets/composite.pdf", printerSettings);

Imports System.Collections.Generic

' Code for Printing using IronPrint
' Get available printer names
Dim printerNames As List(Of String) = Printer.GetPrinterNames()

' Create print settings object
Dim printerSettings As New PrintSettings()

For Each printerName As String In printerNames
    ' Set desired printer name
    If printerName.Equals("Microsoft Print to PDF") Then
        printerSettings.PrinterName = printerName
    End If
Next

' Configure print settings
printerSettings.PaperSize = PaperSize.A4                    ' Set paper size
Dim margins As New Margins(30, 10)                          ' Set paper margins
printerSettings.PaperMargins = margins                      ' Apply margins

' Additional settings for production environments
printerSettings.Grayscale = False                           ' Color printing for better QR code contrast
printerSettings.NumberOfCopies = 1                          ' Set number of copies
printerSettings.Dpi = 300                                   ' High DPI for clear QR codes

' Print the PDF
Printer.Print("assets/composite.pdf", printerSettings)      ' Print the PDF

' For interactive printing with user dialog
' Printer.ShowPrintDialog("assets/composite.pdf", printerSettings)