Private Sub ymsz_Click()
  On Error Resume Next
With CommonDialog1
.Flags = cdlPDPrintSetup
.ShowPrinter
End With
End Sub

但页面设置为横向时,打印后并没有改变设置,是否缺少一句语句,
谢谢

Notepad 2个 Sample :

谢谢!!!

我上面的代码怎样修改那?

[ 本帖最后由 看学 于 2011-6-24 19:25 编辑 ]

你都还没看就结帖了.....= =.

这只是网路上找到的例子～不是我写的～
让你参考看看～
不清楚是不是能根本解决你的问题～

大概看一下～
工程一里面有部份是关于列印的代码～
只是不清楚和你的需求差距多少～