Printer问题

Question

Printer.PaperSize = vbPRPSA3
   Printer.ScaleMode = 3
   Printer.PaintPicture Picture1.Image, 0, 0  
   Printer.EndDoc    在picture1里有一幅a3的图片,但不知为什么总有一点打不完.

Answer 1

由于不设置Printer.ScaleMode = 3的时候能打出一个完整的小图片所以我想不是图片本身没有被完整复制的原因.

Answer 2

Dim str As String
str = "asdfasdfasdfasdfsdfsdafsdf"
Printer.CurrentX = 2000
Printer.CurrentY = 1000
Printer.Print str
Printer.EndDoc只打出asd这几个字不知道为什么？用的是a3纸,各为大侠求救。

Answer 3

奇怪，不论设置Printer.ScaleMode = 3还是Printer.ScaleMode = 1 ,printer.width都是11904，不知是不是与这有关，请大家帮帮忙。