这个是我一直用的代码--将报表文件另存为BMP,单位所有系统(WINXP,WIN7,WIN10,WIN11都正常运行)
这次把报表文件从横向改成纵向后,就其中一台WIN11的笔记本出问题,保存的照片还是横向的,
但是该笔记本打印报表已经是纵向了?
代码如下:
cLEAR
#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 ccmcd3 OBJECT oRL

        LOCAL nWidth, nHeight, hBitmap, hGraphics, cFile, bmpGUID
        nWidth =  oRL.GetPageWidth()/4
        nHeight = oRL.GetPageHeight()/4   
        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(1, hGraphics, 1, 0,0,nWidth,nHeight, 0,0,nWidth,nHeight)
       cFile = "D:\temp\list"+".jpg"  
      
        
      
        bmpGUID = 0h06F47C55041AD3119A730000F81EF32E
        GdipSaveImageToFile(hBitmap, STRCONV(cFile+0h00,5),@bmpGUID,0)
        GdipDisposeImage(hBitmap)
        GdipDeleteGraphics(hGraphics)
        
  
   MESSAGEBOX("图片已生成，请到d:\temp内查看",0,"询问" )

你怎么知道"保存的照片还是横向的"?换个图片查看器试试

在多台电脑上都试过了

就其中一台WIN11的笔记本出问题？这个不是你说的？

我在说清楚一点：WIN11用户的帐号在其他平台登录都是正常的保存纵向照片，其他用户在WIN11这台笔记本上登录保存的也是横向照片。
照片我放在局域网上共享，其他用户看下来都是横向的。

那台电脑的EXE文件更新一下，还有报表文件

[此贴子已经被作者于2026-7-30 10:21编辑过]

都更新过了，打印报表是正常的，就是报表保存为照片不正常

单位所有系统(WINXP,WIN7,WIN10,WIN11都正常运行)，说明代码没问题，系统没问题，最有可能出问题的就是看图软件

这台出错的机器打印也正常，只是显示横竖颠倒而已

检查一下文件路径