这个打印程序有什么错？(100分)

这是以前一个富翁给我的打印窗体的程序，用了挺长一段时间了，一直感觉还不错，但
最近有人反应说就是打印不出来什么东西，我不知道原因出在什么地方，还请各位大虾
多指教。我在激光打印机和喷墨打印机上都试过。先谢了。
var
dc: HDC;
isDcPalDevice: BOOL;
MemDc: HDC;
MemBitmap: hBitmap;
OldMemBitmap: hBitmap;
hDibHeader: THandle;
pDibHeader: pointer;
hBits: THandle;
pBits: pointer;
ScaleX:do
uble;
ScaleY:do
uble;
ppal: PLOGPALETTE;
pal: hPalette;
Oldpal: hPalette;
i: integer;
begin
//PrinterSetupDialog1.Execute;
dc := GetDc(0);
MemDc := CreateCompatibleDc(dc);
MemBitmap := CreateCompatibleBitmap(Dc, form1.width, form1.height);
OldMemBitmap := SelectObject(MemDc, MemBitmap);
isDcPalDevice := false;
if GetDeviceCaps(dc, RASTERCAPS) and RC_PALETTE = RC_PALETTE then
begin
GetMem(pPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
FillChar(pPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0);
pPal^.palVersion := $300;
pPal^.palNumEntries := GetSystemPaletteEntries(dc, 0, 256, pPal^.palPalEntry);
if pPal^.PalNumEntries <> 0 then
begin
pal := CreatePalette(pPal^);
oldPal := SelectPalette(MemDc, Pal, false);
isDcPalDevice := true
end
else
FreeMem(pPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
end;
BitBlt(MemDc, 0, 0, form1.width, form1.height, Dc, form1.left, form1.top, SrcCopy);
if isDcPalDevice = true then
begin
SelectPalette(MemDc, OldPal, false);
DeleteObject(Pal);
end;
SelectObject(MemDc, OldMemBitmap);
DeleteDc(MemDc);
hDibHeader := GlobalAlloc(GHND, sizeof(TBITMAPINFO) + (sizeof(TRGBQUAD) * 256));
pDibHeader := GlobalLock(hDibHeader);
FillChar(pDibHeader^, sizeof(TBITMAPINFO) + (sizeof(TRGBQUAD) * 256), #0);
PBITMAPINFOHEADER(pDibHeader)^.biSize := sizeof(TBITMAPINFOHEADER);
PBITMAPINFOHEADER(pDibHeader)^.biPlanes := 1;
PBITMAPINFOHEADER(pDibHeader)^.biBitCount := 8;
PBITMAPINFOHEADER(pDibHeader)^.biWidth := form1.width;
PBITMAPINFOHEADER(pDibHeader)^.biHeight := form1.height;
PBITMAPINFOHEADER(pDibHeader)^.biCompression := BI_RGB;
{find out how much memory for the bits}
GetDIBits(dc, MemBitmap, 0, form1.height, nil, TBitmapInfo(pDibHeader^),
DIB_RGB_COLORS);
hBits := GlobalAlloc(GHND, PBitmapInfoHeader(pDibHeader)^.BiSizeImage);
pBits := GlobalLock(hBits);
GetDIBits(dc, MemBitmap, 0, form1.height, pBits, PBitmapInfo (pDibHeader)^, DIB_RGB_COLORS);
if isDcPalDevice = true then
begin
for i := 0 to (pPal^.PalNumEntries - 1)do
begin
PBitmapInfo(pDibHeader)^.bmiColors.rgbRed := pPal^.palPalEntry.peRed;
PBitmapInfo(pDibHeader)^.bmiColors.rgbGreen := pPal^.palPalEntry.peGreen;
PBitmapInfo(pDibHeader)^.bmiColors.rgbBlue := pPal^.palPalEntry.peBlue;
end;
FreeMem(pPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
end;
ReleaseDc(0, dc);
DeleteObject(MemBitmap);
Printer.begin
Doc;
if Printer.PageWidth < Printer.PageHeight then
begin
ScaleX := Printer.PageWidth;
ScaleY := form1.Height * (Printer.PageWidth / form1.Width);
end
else
begin
ScaleX := form1.Width * (Printer.PageHeight / form1.Height);
ScaleY := Printer.PageHeight;
end;
isDcPalDevice := false;
if GetDeviceCaps(Printer.Canvas.Handle, RASTERCAPS) and
RC_PALETTE = RC_PALETTE then
begin
GetMem(pPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
FillChar(pPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0);
pPal^.palVersion := $300;
pPal^.palNumEntries := 256;
for i := 0 to (pPal^.PalNumEntries - 1)do
begin
pPal^.palPalEntry.peRed := PBitmapInfo(pDibHeader)^.bmiColors.rgbRed;
pPal^.palPalEntry.peGreen := PBitmapInfo(pDibHeader)^.bmiColors.rgbGreen;
pPal^.palPalEntry.peBlue := PBitmapInfo(pDibHeader)^.bmiColors.rgbBlue;
end;
pal := CreatePalette(pPal^);
FreeMem(pPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
oldPal := SelectPalette(Printer.Canvas.Handle, Pal, false);
isDcPalDevice := true
end;
StretchDiBits(Printer.Canvas.Handle, 0, 0, Round(scaleX), Round(scaleY), 0, 0,
form1.Width, form1.Height, pBits, PBitmapInfo(pDibHeader)^,
DIB_RGB_COLORS, SRCCOPY);
if isDcPalDevice = true then
begin
SelectPalette(Printer.Canvas.Handle, oldPal, false);
DeleteObject(Pal);
end;
GlobalUnlock(hBits);
GlobalFree(hBits);
GlobalUnlock(hDibHeader);
GlobalFree(hDibHeader);
Printer.EndDoc;

看看！能把功能说一下吗？

这就是全部的代码了呀，其实也就是一个抓屏过程，然后直接送打印机打印。你自己都
可以把整个程序拷下去，然后把form1改成你自己的窗体的名称就行了。我在很多打印机
上都试过了，可就是现在突然出现几个打印机不能打印，而且我没有看见现场的情况，
离我还很远，所以我不知道是不是我的这个程序对打印机是不是有什么限制

我测试了一下，打印正常呀！

我不是说过了吗？大部分是正常的，就是不知道为什么有一些不行，我想知道原因，
所以才来问的，我还要答复对方呢，可我一点头绪都没有，我这里也好好的。

up

很有可能是对方打印驱动的问题。不知你这样能否跟客户解释的通！
如果不行，在从新编译一下！或做一个小demo让对方测试一下！
不管怎样，你总的把问题解决吧！

我也怀疑是对方的打印机驱动有问题，可是不知道实质上是不是这个问题。今天我在我们
公司的佳能激光打印机和喷墨打印机上都试过了，好像客户的是Epson的喷墨打印机，那个
打印机打一般的Word文档没有问题，打我别的报表打印也没问题，但就是打这种曲线就
不行，而这种曲线的打印方式就是采用的抓图方式，所以我有点怀疑是不是用这样的程序
对打印机的要求有什么不同