如何在vb6中打印图像

时间:2018-04-26 17:06:40

标签: vb6

我在vb6应用程序中有tiff图像(前后图像)。我正在从fim和rim文件中将tiff图像保存到我的本地文件夹,并从那里尝试打印图像。

最初我试图将图像加载到picturecox并尝试打印图像,但是tiff图像无法以这种方式打印。我收到错误作为无效图片。 .bmp和.jpg工作正常。

If pblnFlipped Then
        Set frmnewimage.img.Picture = Nothing
        frmnewimage.img.Picture = LoadPicture(mstrRearTiffImageFile)
        Else
        Set frmnewimage.img.Picture = Nothing
        frmnewimage.img.Picture = LoadPicture(mstrFrontTiffImageFile)
        End If
        Printer.PaintPicture frmnewimage.img.Picture, 100, 100
        Printer.EndDoc

所以我将图片保存到我的本地。但我不知道如何直接从保存的图像打印图像。请帮帮我。

先谢谢!!!!

我尝试过:

If pblnFlipped Then
       Printer.PaintPicture mstrRearTiffImageFile, 10, 10
       Else
       Printer.PaintPicture mstrFrontTiffImageFile, 10, 10
       End If
       Printer.EndDoc

mstrRearTiffImageFile和mstrFrontTiffImageFile是字符串(后方图像和前方图像)。它包含我需要打印的图像。基于图像类型(pblnFlipped)我需要打印图像。

1 个答案:

答案 0 :(得分:0)

内置VB6 image control以及Picture Box control支持的文件格式不包含对TIFF文件的支持。

在将文件加载到VB6之前,您需要将文件转换为支持的图像格式,或者创建或查找支持TIFF格式的其他自定义控件。

我不知道你为什么要在VB6上进行新的开发,但你可能会发现使用其他具有更广泛图形支持的平台更容易实现你的目标,然后从你用的任何VB代码调用它保持。