1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure PrintScreenShot(var Key: Word;  Shift: TShiftState);
var b : TBitmap;
begin
      b:=TBitmap.Create;
      If ((ssAlt in Shift) and (Key=VK_Snapshot)) or (Key=VK_Snapshot) then begin
         b.Assign(Clipboard);
         b.SaveToFile('E:\scrshot.bmp');
         b.HandleType:=bmDIB;
         printer.begindoc;
            printer.canvas.draw(0,0,TGraphic(b));
         printer.enddoc;
      end;
      b.Free;
end;