vb中怎样打印图片？

Question

1 怎样打印picturebox里的图片？？？？？？？
2 已知图片路径可以打印吗？

Answer 1

看看下面的内容:
注:从MSDN上 Ctrl + c 来的
PaintPicture 方法
      用以在 Form, PictureBox 或 Printer 上绘制图形文件（.bmp、.wmf、.emf、.cur、.ico或 .dib）的内容。不支持命名参数。语法object.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcodePaintPicture 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的 Form 对象缺省为 object。 
Picture 必需的。要绘制到 object 上的图形源。Form 或 PictureBox 必须是 Picture 属性。 
x1, y1 必需的。均为单精度值，指定在 object 上绘制 picture 的目标坐标（x-轴和y-轴）。object 的 ScaleMode 属性决定使用的度量单位。  
Width1 可选的。单精度值，指示 picture 的目标宽度。object 的 ScaleMode 属性决定使用的度量单位。如果目标宽度比源宽度 (width2) 大或小，将适当地拉伸或压缩 picture。如果该参数省略，则使用源宽度。 
Height1 可选的。 单精度值，指示 picture 的目标高度。object 的 ScaleMode 属性决定使用的度量单位。如果目标高度比源高度 (height2) 大或小，将适当地拉伸或压缩 picture。如果该参数省略，则使用源高度。 
x2, y2 可选的。均为单精度值，指示 picture 内剪贴区的坐标（x-轴和y-轴）。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略，则缺省为 0。 
Width2 可选的。单精度值，指示 picture 内剪贴区的源宽度。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略，则使用整个源宽度。 
Height2 可选的。 单精度值，指示 picture 内剪贴区的源高度。object 的 ScaleMode 属性决定使用的度量单位。如果该参数省略，则使用整个源高度。 
Opcode 可选的。是长型值或仅由位图使用的代码。它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作（例如， vbMergeCopy 或 vbSrcAnd 操作符）。关于位操作符常数的完整列表，请参阅 Visual Basic Help 文件中的 RasterOp Constants 主题。 
在使用opcode时有一些限制。例如，如果资源是图标或图元文件，则只能使用 vbSrcCopy，而不能使用其他的opcode；并且，与图案 (或 SDK 术语中的"画笔")，如 MERGECOPY、 PATCOPY、 PATPAINT 和 PATINVERT，相交互的opcode实际上是同目标的 FillStyle 属性交互。注意   Opcode 用于将按位操作传递到位图。当传递其他图象类型时将一个值给该参数会造成“无效过程调用或参数”错误。这是设计的原因。要避免这个错误，对于除位图外的图象，将 Opcode 参数置为空。
 
说明通过使用负的目标高度值 (height1) 和 / 或目标宽度值 (width1) ，可以水平或垂直翻转位图。 可以省略任何多个可选的尾部的参数 。如果省略了一个或多个可选尾部参数，则不能在指定的最后一个参数后面使用逗号。如果想指定某个可选参数，则必须先指定语法中出现在该参数前面的全部参数。注意，在将一个.Bmp加载入 PictureBox 控件和使用 Windows API 函数 BitBlt() 添加图片之间有一点不同。当您对一个图象使用 BitBlt() 时，PictureBox 控件不知道象您使用 LoadPicture方法那样去调整大小。将 ScaleWidth 和 ScaleHeight 属性设置为图象的大小也不起作用。如果您想在使用 BitBlt 之后用 PictureBox 调整新图片的大小，必须用代码手工做，转换单位并处理边框，下面是如何这样做的一个简单示例：Sub ResizePictureBoxToImage(pic as PictureBox, twipWd _
  as Integer, twipHt as Integer)
 ' 该代码假设所有的单位都为缇。如果
 ' 不是，必须在调用该例程之前，转换为缇。
 ' 这里也假设图象显示在0,0处。
 Dim BorderHt as Integer, BorderWd as Integer
 BorderWd = Pic.Width - Pic.ScaleWidth
 BorderHt = Pic.Height - Pic.ScaleHeight
 pic.Move pic.Left, pic.Top, twipWd + BorderWd, _
   twipHt + BorderHt
End Sub

Answer 2

Visual Basic的Printer对象支持PaintPicture方法，可以支持打印位图。其语法为： 
    Printer.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode 
    参数Picture是必需的，指明要绘制到打印机上的图形的来源源，通常是对象的Picture或Image属性。 
    参数x1, y1也是必需的，均为单精度数值，指定参数picture所确定图形在打印机上绘制的坐标（x-轴和y-轴）。其值的单位是由Printer的 ScaleMode 属性决定的。 
    参数Width1和Height1是可选的，都是单精度数值，指示图象的目标宽度和高度。如果目标宽度/高度比源宽度 (width2)/高度（height2）大或者小，将适当地拉伸或压缩图形。如果省略这两个参数，则使用图形的原始尺寸。 
    参数x2, y2、Width2和Height2是可选的。它们指示参数picture确定的图象内剪贴区的坐标（x-轴和y-轴）和大小。利用这四个参数，我们可以打印图象的一部分。默认是打印整个图象。 
    参数Opcode是可选的，是长型数值。它用来定义在将图象绘制到打印机上时对图象执行的位操作（例如， vbMergeCopy 或 vbSrcAnd 操作符）。关于位操作符常数的完整列表，请参阅 Visual Basic帮助文件中的有关内容。对于打印机来说，这个参数较少使用；而在屏幕显示图象时往往利用这个参数实现一些特殊效果。

Answer 3

http://www.wave12.com/web/SigCon.asp?bCate=50&sCateName=%B9%A6%C4%DC%BD%E9%C9%DC&ID=173&CateName=wsReport4.5

Answer 4

printer.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2
printer.PaintPicture picture, 0, 0, 1000, 1000, 10, 10, 1000, 1000

Answer 5

PaintPicture 我也是听闻这个方法

Answer 6

我还告诉你另外一种方法.
就是把printer对象当作picturebox控件一样使用输出也可以.但我发现那个drawwidth不起作用

Answer 7

下面就是例子：
printer.PaintPicture Picture1.Picture, 0, 0, 2000, 2000, 0, 0, 2000, 2000
printer.PaintPicture Picture1.Image, 0, 0, 2000, 2000, 0, 0, 2000, 2000
printer.PaintPicture Locadpicture("C:\aa.Jpg"), 0, 0, 2000, 2000, 0, 0, 2000, 2000