TMS AdvStringGrid 를 사용하여 데이터를 불러온후에 버튼을 클릭하면 스트링그리드에 있는 내용이 jpg로 저장이 되도록 하였습니다. TIP에 있더군요.
아래와 같이요.
-----------------------------------
var
pBitmap: TBitmap;
jp: TJPEGImage;
R: TRect;
begin
pBitmap := TBitmap.Create; //create a new instance of a bitmap
jp := TJPEGImage.Create; //create new instance of a jpg file
R := Rect(0,0,950,760); //parameters for rectangle
pBitmap.Height := 622; //set bmp height
pBitmap.Width := 812; //set bmp width
AdvStringGrid1.PrintPreview(pBitmap.Canvas,R); //call Preview to paint to BMP canvas
jp.Assign(pBitmap); //get picture from bitmap for JPG Image
jp.SaveToFile('c:\temp\Grid.jpg'); //save picture as JPG File
pBitmap.Free;
jp.Free;
end;
--------------------------------------------------
문제는 한 화면에 모든 내용은 표시는 되나... 크기가 너무 작게 나옵니다.
R := Rect(0,0,950,760);
pBitmap.Height := 622;
pBitmap.Width := 812;
이 부분을 조절을 해 보았으나.... 캔버스 크기만 늘어났지 내용 크기는 그대로 더군요.. 내용 크기를 A4 사이즈 정도로 나타나게 하고 싶은데, 어떻게 하는지 알려주시면 감사하겠습니다.