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

Printer.FontSize = 20

打印代码如下：
    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 编辑 ]

1.日期后面有背景颜色，只想要字，不想要后面的背景；
2.国徽后面也有背景颜色，国徽是gif文件，本来是没有背景颜色的。

日期要直接打印上，才不会出现白色的背景色。
国徽需要使用 image 控件加载，然后再贴上去，才不会出现白色。不能用 图像框加载。

1.怎么能把不想要的背景颜色取消呢？
这个：逐点读原图和现在的图，原图有颜色 ，现图为白色的，把原图的颜色逐点打印上去就可以了。
估计你不打算采用，而打算尽量避免出现白背景了。

2.现在打印出来的都是黑色的，怎么能把打印的日期设为红色字呢？
打印时，要先设置字体颜色 然后再打印。打印前要记得把打印机设为 颜色模式。

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日")

这行我测试着没空白啊. .........看来是你的设置问题.

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

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

我图片是 放在 image 上的,打印时,不是直接加载的,而是使用命令复制过来的.
估计与这个有关吧.

VB报表设计终结VBReport是针对printer设计的，可以研究研究
1、全开放式的报表设计，只通过一个文本文档就可以完成整个报表的设计。
2、可以不显示直接打印，也可以预览后打印。
3、不同的报表可以选择一台默认的打印机，这对票据打印时不同的票据选用不同的打印机有重大意义。
4、连纸票据打印时按照设计的长度走纸，不需要设置打印机属性。
5、支持一搬报表类型,分组报表类型，票据类型，支持多数据源。
http://www.