Printer.ScaleMode = 6
 Printer.ScaleWidth = 102
 Printer.ScaleHeight = 152
 Printer.FontSize = 20
 Printer.FontName = "黑体"
 Printer.CurrentX = 8
 Printer.CurrentY = 149
 Printer.Print "识别代号："
这个“识别代号”怎么打印不出来呢？纸张高度设定的是152mm，能在打印范围内啊

打印代码如下：
    Printer.ScaleMode = 6
    Printer.ScaleWidth = 102
    Printer.ScaleHeight = 152
    Printer.FontSize = 17
    Printer.FontName = "黑体"
    Printer.ColorMode = 1
   
    Printer.PaintPicture Image1.Picture, 5, 5, 90, 65
    Printer.PaintPicture Image1.Picture, 5, 76, 90, 65
    Printer.PaintPicture Image2.Picture, 10, 10, 5, 5
    Printer.PaintPicture Image2.Picture, 10, 80, 5, 5
   
    Printer.CurrentX = 8
    Printer.CurrentY = 72
    Printer.Print "车辆识别代号："
   
    Printer.CurrentX = 8
    Printer.CurrentY = 144
    Printer.Print "车辆识别代号："
   
    Printer.CurrentX = 30
    Printer.CurrentY = 72
    Printer.Print dycjh
   
    Printer.CurrentX = 30
    Printer.CurrentY = 144
    Printer.Print dycjh
   
   
   
    Printer.FontSize = 18
    Printer.FontName = "宋体"
    Printer.CurrentX = 50
    Printer.CurrentY = 58
    Printer.Print Format(Date, "yyyy年MM月dd日")
    Printer.CurrentX = 70
    Printer.CurrentY = 58
    Printer.Print Format(Time, "hh:mm")
   
    Printer.CurrentX = 50
    Printer.CurrentY = 128
    Printer.Print Format(Date, "yyyy年MM月dd日")
    Printer.CurrentX = 70
    Printer.CurrentY = 128
    Printer.Print Format(Time, "hh:mm")
    Printer.EndDoc
可是打印出来的：
1.日期后面有背景颜色，只想要字，不想要后面的背景；
2.国徽后面也有背景颜色，国徽是gif文件，本来是没有背景颜色的。
1.怎么能把不想要的背景颜色取消呢？
2.现在打印出来的都是黑色的，怎么能把打印的日期设为红色字呢？


[ 本帖最后由 suofeiya 于 2010-10-17 11:14 编辑 ]

Printer.PaintPicture LoadPicture(App.Path & "\国徽2.Gif"), 5, 6, 3, 3
这样应该是直接打印图片吧，可是打印出来的国徽图片后面也有白色背景啊!

日期也是直接打印上的，只不过加了限制格式。打出来也有白色背景。
Printer.Print Format(Date, "yyyy年MM月dd日")


[ 本帖最后由 suofeiya 于 2010-10-17 21:45 编辑 ]

Printer.Print Format(Date, "yyyy年MM月dd日")
这行我是打印在图片上了，你打在图片上就有了；
那个gif图片也是打印在图片上，同样的情况，后面有白背景。
要说是设置问题，该从哪方面查找呢？打印的代码就上面那么多，别的地方好像也没设置什么

[ 本帖最后由 suofeiya 于 2010-10-18 08:34 编辑 ]