[求助]点击打印预览后的打印按钮后，纸张变了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用蓝才文百在2019/2/11 12:14:00的发言：
能否给我发下你测试的项目，我foxtable是2018.03版本的，不知道是不是版本问题？

和版本无关。

1、打印机设置成默认打印机；

2、在打印机那里，添加对应纸张；

3、获取和设置 paperKind 的值，然后直接print。

还是错误，麻烦看看：

错误代码：

.NET Framework 版本：2.0.50727.8784
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,發piao管理,btnPrintListbyCode,Click
详细错误信息：
无效的PaperKind代码181。

Dim doc As New PrintDoc
Dim prtdoc As new Printing.PrintDocument()
Dim strDefaultPrinter As String = e.Form.Controls("cboPrinter").text
prtdoc.PrinterSettings.PrinterName = strDefaultPrinter
Doc.PrinterName = strDefaultPrinter
Dim intPaperKindID As Integer = 9 '默認 A4,如果未找到的話
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
If ps.papername = "1000inv" Then '固定设置自定义纸张名称
intPaperKindID = ps.RawKind
Exit For
End If
Next
With doc.PageSetting
.LeftMargin = 0
.RightMargin = 0
.BottomMargin = 0
.TopMargin = 0
.LandScape = True '横向打印
.PaperKind = intPaperKindID '这里提示上述错误
.Width = 217
.Height = 165
End With
Doc.AutoRotate = False

[此贴子已经被作者于2019/2/11 14:36:28编辑过]

1、对应的打印机，设置成默认打印机了没有？

2、换一个打印机，添加纸张，然后设置成默认打印机后测试。

3、如果还不会，联系客服QQ远程测试一下。

1、测试了一下，你的打印机不兼容；

2、无法设置 landscape，也就是横向纵向的切换；

3、必须手动在打印机那里添加纸张以后，比如 21.7*16.5 的纸张，然后再设置 width和height 为217和165，才行，必须全部一致。

4、你可以在excel的打印预览那里，测试一下纸张是否正常

[此贴子已经被作者于2019/2/11 18:28:01编辑过]

感谢版主客服耐心测试！

怎么样？你的问题解决没有？

以下是引用xietan417在2019/4/12 14:43:00的发言：
怎么样？你的问题解决没有？

用这种方法

http://www.foxtable.com/webhelp/scr/2904.htm

主题：[求助]点击打印预览后的打印按钮后，纸张变了