#Defin PixelFormat32bppARGB  0x26200A
Declare Long GdipCreateBitmapFromScan0 In GDIPlus.Dll Long, Long, Long, Long, String@, Long@
Declare Long GdipGetImageGraphicsContext In GDIPlus.Dll Long, Long@
Declare Long GdipSaveImageToFile In GDIPlus.Dll Long, String@, String@, Long
Declare Long GdipDisposeImage In GDIPlus.Dll Long
Declare Long GdipDeleteGraphics In GDIPlus.Dll Long

oRL = Createobject("ReportListener")
oRL.ListenerType = 3
Report Form xxx.frx Object oRL

Local nWidth, nHeight, hBitmap, hGraphics, cFile, bmpGUID
nWidth =  oRL.GetPageWidth()/4
nHeight = oRL.GetPageHeight()/4   && 分辨率太大图片好象有点不正常，情况不明。

For aa = 1 To oRL.PageTotal

    hBitmap = 0
    GdipCreateBitmapFromScan0(nWidth, nHeight, 0, PixelFormat32bppARGB, 0, @hBitmap)
    If hBitmap == 0
        ? "创建Bitmap失败"
        Return
    Endif
    hGraphics = 0
    GdipGetImageGraphicsContext(hBitmap, @hGraphics)
    If hGraphics == 0
        GdipDisposeImage(hBitmap)
        ? "获取Graphics失败"
        Return
    Endif
    oRL.OutputPage(aa, hGraphics, 1, 0,0,nWidth,nHeight, 0,0,nWidth,nHeight)
    cFile = "D:\报表" + Alltrim(Str(aa)) + ".png"
    bmpGUID = 0h06F47C55041AD3119A730000F81EF32E
    GdipSaveImageToFile(hBitmap, Strconv(cFile+0h00,5),@bmpGUID,0)
    GdipDisposeImage(hBitmap)
    GdipDeleteGraphics(hGraphics)
Endfor

没见到报表和数据表文件

报表都能正常运行的，数据来自sql。本坛有说是字体问题，但改成宋体也一样。字段是英文或数字则正常显示，就中文不行。不是字段的中文部分也正常。

是否缺少什么设置？

sql字段类型？

字段在sql中类型是varchar和char。这两种只要中文的地方就乱码，网上有的说是域控件高度，我调高也不行。不知还有碰到这种情况的没？

[此贴子已经被作者于2021-5-15 10:33编辑过]

随便取出一条记录一个字段的表大家测试一下就OK了

#Defin PixelFormat32bppARGB  0x26200A
Declare Long GdipCreateBitmapFromScan0 In GDIPlus.Dll Long, Long, Long, Long, String@, Long@
Declare Long GdipGetImageGraphicsContext In GDIPlus.Dll Long, Long@
Declare Long GdipSaveImageToFile In GDIPlus.Dll Long, String@, String@, Long
Declare Long GdipDisposeImage In GDIPlus.Dll Long
Declare Long GdipDeleteGraphics In GDIPlus.Dll Long

CREATE CURSOR tt (编号 C(10), 名称 C(100),数量 I)
FOR i = 1 TO 3
    INSERT INTO tt VALUES ("vfp-001", "大家好，欢迎来到编程论坛", i)
     INSERT INTO tt VALUES ("vfp-002", "VFP学习模块学习模块学习模块", i)
      INSERT INTO tt VALUES ("vfp-003", "感谢你的付出", i)
ENDFOR

oRL = Createobject("ReportListener")
oRL.ListenerType = 3
Report Form c_打印图片 Object oRL

Local nWidth, nHeight, hBitmap, hGraphics, cFile, bmpGUID
nWidth =  oRL.GetPageWidth()/4
nHeight = oRL.GetPageHeight()/4    && 分辨率太大图片好象有点不正常，情况不明。

For aa = 1 To oRL.PageTotal

    hBitmap = 0
    GdipCreateBitmapFromScan0(nWidth, nHeight, 0, PixelFormat32bppARGB, 0, @hBitmap)
    If hBitmap == 0
        ? "创建Bitmap失败"
        Return
    Endif
    hGraphics = 0
    GdipGetImageGraphicsContext(hBitmap, @hGraphics)
    If hGraphics == 0
        GdipDisposeImage(hBitmap)
        ? "获取Graphics失败"
        Return
    Endif
    oRL.OutputPage(aa, hGraphics, 1, 0,0,nWidth,nHeight, 0,0,nWidth,nHeight)
    cFile = "D:\报表" + Alltrim(Str(aa)) + ".png"
    bmpGUID = 0h06F47C55041AD3119A730000F81EF32E
    GdipSaveImageToFile(hBitmap, Strconv(cFile+0h00,5),@bmpGUID,0)
    GdipDisposeImage(hBitmap)
    GdipDeleteGraphics(hGraphics)
Endfor



另外：能不能设置一个文件包含多页，不要一页一个文件？谢谢

[此贴子已经被作者于2021-5-15 13:01编辑过]

给个报表文件测试不了的，报表文件还可以自己建。
主要是数据表文件，乱码的是数据表的东西吧?

图片可以拼接，不知页数多时效果会怎样