主题：[求助]打印方向

你是打印预览后打印的，还是直接打印的？

你设置好以后，直接doc.print行不行？

试试设置

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

1、正常打印的情况，不可能有你这种问题出现，请检查你的代码。或者单独测试一段简单的打印代码；

2、参考 http://www.foxtable.com/webhelp/scr/1588.htm

3、参考代码

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable,I Love YOU!" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表

Dim diag As New System.Windows.Forms.PrintDialog  '打印
If diag.ShowDialog() = 1 Then
    Dim ps As System.Drawing.Printing.PrinterSettings = diag.PrinterSettings
    'ps.PrinterName = "打印机名"  '设置打印机名
    'ps.Copies = 2   '设置份数
    doc.Print(ps)     '打印
End If

直接这样写，测试有没有问题

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Print

或者试试加上代码，如

ShowAppWindow("打印进程", 5)

1、预览是否正常？如果预览页不正常，那就调整成正常的，再打印；

2、如果预览正常，打印不正常，那你每次重新 New PrintDoc ，再打印。

把

Dim doc As New PrintDoc '定义一个报表

和

doc.print

写在循环里面测试

这种问题，不是测试一下便知？注意，你x、y的值，要定义为double，不能定义为integer

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.x = 10
rt.y = 10
doc.Body.Children.Add(rt) '将文本对象加入到报表
rt = New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.x = 10.5
rt.y = 15
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

设置rt.width即可，如

rt.width = 15 '具体数值自己调整