Vb.Net 打印相关（自定义纸张尺寸等）

[soothbug]

最近写一个小程序，要实现非常见规格的纸张套打（15x9厘米，可变）
程序有一个form作为主窗口（加载和修改待打印内容），另一个form作为设置窗口（页面尺寸，上下留白，字体，等）
目前的PrintDocument控件是加在主窗口中的

想实现的功能是：主窗口载入文件，设置窗口设置页面尺寸，回主窗口点打印按钮就直接打出来。

目前卡在自定义纸张尺寸这里，代码不管怎么改，PrintDocument.PrinterSettings也好，其他途径也好，打出来都是A4……
于是就想着曲线救国，试试看改打印服务器里的纸张列表，也没成功。

度娘找了好久都没解决，求帮助~~~

注，1，目标平台：Visual Studio 2005
　　2，因功能要求，需要尽量避免使用类似自带的PageSetupDialog这类窗口。
　　3，如果可以改变并调用下图中打印服务器的纸张列表，如何操作？
　　4，额外的小问题，程序目前有两个内嵌到Resource中的图标文件，一个作为主程序图标，一个作为对应文件的图标（两者之间就是类似word.exe和123.doc的图标之间的关系），但是在设置文件打开方式过程中，注册表键值改为"...\...\...exe,1"时，文件图标还是空白的，使用eXeScope分析，exe中只有一个编号为32512的图标资源，这是为什么？要怎么才能实现将多个图标正确的编译到exe中？

本人菜鸟，先谢过~ 要多少分您开口，只要问题能解决

------------------------------------------------------------

[soothbug]

大牛们都在哪里~~

[lhblxm]

PrintDocument1.DefaultPageSettings.PaperSize 你可以设置任何尺寸

[soothbug]

引用 2 楼 lhblxm 的回复:

PrintDocument1.DefaultPageSettings.PaperSize
你可以设置任何尺寸

感谢回复！

是的，但是无法生效（可以编译，打印时依旧会打印成A4，即打印服务器的默认值）。
是否有其他方法呢？

[lhblxm]

在打印机属性也要设一个自定义纸张

[soothbug]

引用 4 楼 lhblxm 的回复:

在打印机属性也要设一个自定义纸张

这个操作不可以通过代码实现吗？ 目标用户可能不会设自定义纸张，所以能用代码完成的要用代码完成

[soothbug]

以下例子主体来源于MSDN，经过简单修改（核心部分未动）

经测试，可以打印，但是无法打印成自定义纸张大小

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ' Add list of supported paper sizes found on the printer. 
        ' The DisplayMember property is used to identify the property that will provide the display string.
        comboPaperSize.DisplayMember = "PaperName"

        Dim pkSize As PaperSize
        comboPaperSize.Items.Clear()
        For i As Integer = 0 To printDoc.PrinterSettings.PaperSizes.Count - 1
            pkSize = printDoc.PrinterSettings.PaperSizes.Item(i)
            comboPaperSize.Items.Add(pkSize)
        Next

        ' Create a PaperSize and specify the custom paper size through the constructor and add to combobox.
        Dim pkCustomSize1 As _
                    New PaperSize("My Custom Paper Size", CInt(TextBox1.Text), CInt(TextBox2.Text))
        comboPaperSize.Items.Add(pkCustomSize1)

        comboPaperSize.SelectedIndex = 0

        ' Add list of paper sources found on the printer to the combo box.
        ' The DisplayMember property is used to identify the property that will provide the display string.
        comboPaperSource.DisplayMember = "SourceName"

        Dim pkSource As PaperSource
        comboPaperSource.Items.Clear()
        For i As Integer = 0 To printDoc.PrinterSettings.PaperSources.Count - 1
            pkSource = printDoc.PrinterSettings.PaperSources.Item(i)
            comboPaperSource.Items.Add(pkSource.SourceName)
        Next

        comboPaperSource.SelectedIndex = 0

        ' Add list of printer resolutions found on the printer to the combobox.
        ' The PrinterResolution's ToString() method will be used to provide the display string.
        'Dim pkResolution As PrinterResolution
        'comboPrintResolution.Items.Clear()
        'For i As Integer = 0 To printDoc.PrinterSettings.PrinterResolutions.Count - 1
        '    pkResolution = printDoc.PrinterSettings.PrinterResolutions.Item(i)
        '    comboPrintResolution.Items.Add(pkResolution.ToString)
        'Next

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ' Set the paper size based upon the selection in the combo box
        Dim iSelIdx As Integer = comboPaperSize.SelectedIndex
        If iSelIdx <> -1 Then
            If iSelIdx = printDoc.PrinterSettings.PaperSizes.Count Then
                printDoc.DefaultPageSettings.PaperSize = _
                    New PaperSize("My Custom Paper Size", CInt(TextBox1.Text), CInt(TextBox2.Text))
            Else
                printDoc.DefaultPageSettings.PaperSize = _
                    printDoc.PrinterSettings.PaperSizes.Item(comboPaperSize.SelectedIndex)
            End If
        End If

        ' Set the paper source based upon the selection in the combo box.
        If comboPaperSource.SelectedIndex <> -1 Then
            printDoc.DefaultPageSettings.PaperSource = _
            printDoc.PrinterSettings.PaperSources.Item(comboPaperSource.SelectedIndex)
        End If

        ' Set the printer resolution based upon the selection in the combo box.
        'If comboPrintResolution.SelectedIndex <> -1 Then
        '    printDoc.DefaultPageSettings.PrinterResolution = _
        '    printDoc.PrinterSettings.PrinterResolutions.Item(comboPrintResolution.SelectedIndex)
        'End If

        ' Print the document with the specified paper size and source.
        printDoc.Print()

    End Sub

[楚狂歌]

不同尺寸对应不同的打印机，打印时调用不同的打印机....

[soothbug]

引用 7 楼 u011266608 的回复:

不同尺寸对应不同的打印机，打印时调用不同的打印机....

只是针对默认打印机的行为，没必要枚举打印机的吧？

[lhblxm]

printDocment类只负责绘图,就是在打印机提供的纸张尺寸中的特定位置(打印区域)绘制,纸张尺寸是打印机管理的,一般是这样来设置 PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings 可以参考VS的自带打印示列程序

[轻鸿万里]

打印事件里添加这行代码 Dim xsjsd As New jsd‘打印的水晶报表名 xsjsd.SetDataSource(tb)’设置打印数据源 xsjsd.PrintOptions.PaperSize = CType(printpaperid("210*140"), CrystalDecisions.Shared.PaperSize)‘210*140是我在打印服务器设置的打印格式。 xsjsd.PrintToPrinter(1, True, 0, 0)‘直接打印出来，不弹出打印提示窗。 ’查找出自定义的纸张格式ID Private Function printpaperid(ByVal papername As String) As Integer Dim pageSettings As New System.Drawing.Printing.PageSettings() If Trim(My.Settings.printname) <> "" Then pageSettings.PrinterSettings.PrinterName = My.Settings.printname End If For Each pageSize As System.Drawing.Printing.PaperSize In pageSettings.PrinterSettings.PaperSizes If pageSize.PaperName = papername Then printpaperid = pageSize.RawKind Exit For End If Next End Function

[D56233577]

确实可以用代码控制纸张并直接打印，前提是你的打印机支持指定的尺寸，需要有相关检测的代码。 我做的项目中，可以打印各种尺寸的标签，我想你现在写的代码有遗漏。

[hzybc]

15x9厘米 转换成像素（！！！）