PrintForm函数在景观印刷中的应用

Question

我有一个问题，我正在尝试打印的形式，在景观，以便它可以打印的所有内容的形式。

这是打印预览，看上去像是被剪掉了。

​

​

我正在使用此代码打印它，也使用景观模式，以真正的我在谷歌搜索。

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.PrintForm1.PrinterSettings.DefaultPageSettings.Landscape = True
    Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
    Me.PrintForm1.Print()
End Sub

但结果是一样的。谢谢。

Answer 1

我很久以前就这样做了，我在谷歌搜索中发现了一些东西。它将为您提供一个打印机设置对话框，您可以选择景观，然后打印。如果内存正常，则Printform.PrinterSettings.DefaultPageSettings.Landscape是只读的或有问题的。无论如何，您需要向表单中添加一个PageSetupDialog和一个PrintDocument。然后将代码更改为：

    PageSetupDialog1.Document = PrintDocument1
    If PageSetupDialog1.ShowDialog = DialogResult.OK Then
        PrintForm1.PrinterSettings = PageSetupDialog1.PrinterSettings
        If PrintForm1.PrinterSettings.IsValid Then
            PrintForm1.Print()
        End If
    End If

当您单击您的button1时，应该会提示您使用一个页面设置对话框，在该对话框中您可以选择景致。单击“确定”，您的表单将打印景观。

我想如果您不想要PageSetupDialog1对话框，您可以通过将PageSetupDialog1的设置设置为s来打印它。

    PageSetupDialog1.Document = PrintDocument1
    PageSetupDialog1.PrinterSettings.DefaultPageSettings.Landscape = True
    PrintForm1.PrinterSettings = PageSetupDialog1.PrinterSettings
    If PrintForm1.PrinterSettings.IsValid Then
        PrintForm1.Print()
    End If