VB.Net by API/System.Windows.Forms/PageSetupDialog

Материал из VB Эксперт
Перейти к: навигация, поиск

PageSetupDialog.AllowMargins

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>


PageSetupDialog.AllowOrientation

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>


PageSetupDialog.AllowPaper

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>


PageSetupDialog.AllowPrinter

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>


PageSetupDialog.MinMargins

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>


PageSetupDialog.PrinterSettings

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>


PageSetupDialog.ShowNetwork

<source lang="vbnet"> Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class


 </source>