请问您是什么意思？
给你看一篇文档，是关于窗体打印的.
可以新建一个窗体（假设为Form1），再把Form1的BorderStyle设为bsNone、AutoScroll设为True，
接下来再创建一个新窗体（假设为Form2），再建个按钮Button1，编写代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Width :=900;
Form1.Height :=800;
Form1.Print;
end;
接下来你在Form1上对应的位置写上数据，运行后按Button1就会一五一十的打印下来了。
////////////////////////////////////
procedure TForm1.Button3Click(Sender: TObject);
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
{Get the screen dc}
dc:=GetDc(0);
{Create a compatible dc}
MemDc:=CreateCompatibleDc(dc);
{create a bitmap}
MemBitmap:=CreateCompatibleBitmap(Dc,form1.width,form1.height);
{select the bitmap into the dc}
OldMemBitmap:=SelectObject(MemDc, MemBitmap);
{Lets prepare to try a fixup for broken video drivers}
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;
{copy from the screen to the memdc/bitmap}
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;
{unselect the bitmap}
SelectObject(MemDc,OldMemBitmap);
{delete the memory dc}
DeleteDc(MemDc);
{Allocate memory for a DIB structure}
hDibHeader:= lobalAlloc(GHND,sizeof(TBITMAPINFO)+(sizeof(TRGBQUAD)*256));
{get a pointer to the alloced memory}
pDibHeader:=GlobalLock(hDibHeader);
{fill in the dib structure with info on the way we want the DIB}
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);
{Alloc memory for the bits}
hBits:=GlobalAlloc(GHND,PBitmapInfoHeader(pDibHeader)^.BiSizeImage);
{Get a pointer to the bits}
pBits:=GlobalLock(hBits);
{Call fn again, but this time give us the bits!}
GetDIBits(dc,MemBitmap,0,form1.height,pBits,PBitmapInfo(pDibHeader)^,DIB_RGB_COLORS);
{Lets try a fixup for broken video drivers}
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* izeof(TPALETTEENTRY)));
end;
{Release the screen dc}
ReleaseDc(0,dc);
{Delete the bitmap}
DeleteObject(MemBitmap);
{Start print job}
Printer.begin
Doc;
{Scale print size}
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;
{Just incase the printer drver is a palette device}
isDcPalDevice:=false;
if GetDeviceCaps(Printer.Canvas.Handle,RASTERCAPS) and RC_PALETTE=RC_PALETTE then
begin
{Create palette from dib}
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;
{send the bits to the printer}
StretchDiBits(Printer.Canvas.Handle,
0, 0,
Round(scaleX), Round(scaleY),
0, 0,
Form1.Width, Form1.Height,
pBits,
PBitmapInfo(pDibHeader)^,
DIB_RGB_COLORS,
SRCCOPY);
{Just incase you printer drver is a palette device}
if isDcPalDevice = true then
begin
SelectPalette(Printer.Canvas.Handle, oldPal, false);
DeleteObject(Pal);
end;
{Clean up allocated memory}
GlobalUnlock(hBits);
GlobalFree(hBits);
GlobalUnlock(hDibHeader);
GlobalFree(hDibHeader);
{End the print job}
Printer.EndDoc;
end;
