> 自力で Canvas に描画してください．
こんな感じでしょうか．
procedure TForm1.Button1Click(Sender: TObject);
var
LFilePath : string;
LBitmap : TBitmap;
begin
LFilePath := ExpandFileName('502.bmp');
LBitmap := TBitmap.Create;
//印刷用のコードを書く
plPrev1.BeginDoc;
try
plPrev1.Canvas.Font.Height := 180;
plPrev1.Canvas.TextOut(200, 300, '印刷プレビューの簡単なテスト');
LBitmap.LoadFromFile(LFilePath);
LBitmap.Transparent := True;
plPrev1.Canvas.StretchDraw(Rect(300, 300, 1300, 1300), LBitmap);
finally
plPrev1.EndDoc;
FreeAndNil(LBitmap);
end;
//プレビューフォームのサイズと位置を設定
//自動生成なので，そのためのプロパティがある
//指定しなければデフォルト値となる
plPrev1.FormPosition := poDesktopCenter;
plPrev1.FormWidth := 600;
plPrev1.FormHeight := 450;
//プレビュー開始
plPrev1.ShowModal;
end;
上の図が描画しているビットマップ画像です．
 |