Public Class Form1 <Runtime.InteropServices.DllImport("winspool.drv")> Public Shared Function SetDefaultPrinter(Name As String) As Boolean End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '参考:インストールされているプリンターの名前を確認する方法 For Each printerName As String In Printing.PrinterSettings.InstalledPrinters Debug.WriteLine(printerName) Next '既定のプリンターのセット SetDefaultPrinter("DocuWorks Printer") End Sub End Class
PrintDocument1.DefaultPageSettings.PaperSize = New Printing.PaperSize("カスタムサイズ", 400, 400)