checkboxとradiobuttonの印刷について (ID:35676)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 なんかPrintWindow関数の挙動がよく分かりません． こうなりゃ，まずビットマップにして，そのビットマップを印刷するしか ないんじゃないでしょうか．先のレスでDさんの指摘したページのはそういう 意味だったのかはわかりませんが， なんとなくスッキリはしませんが，目的が達せられれば良しということで． // 動作確認 // Windows XP(SP3) + Delphi2009(UP3) // プリンタEPSON PM-3300C + SplConv.exe(DEKO氏作) // procedure TForm1.Button3Click(Sender: TObject); var bmp : TBitmap; DevPPIX : Integer; DevPPIY : Integer; ALeft : Integer; ATop : Integer; AWidth : Integer; AHeight : Integer; ARect : TRect; begin if not PrintDialog1.Execute then exit; //PagePanelのビットマップを作成 bmp := TBitmap.Create; GetWindowRect(PagePanel.Handle, ARect); bmp.Width := ARect.Right - ARect.Left; bmp.Height := ARect.Bottom - ARect.Top; bmp.Canvas.Lock; try PrintWindow(PagePanel.Handle, bmp.Canvas.Handle,1); finally bmp.Canvas.Unlock; end; //作成したビットマップを印刷 Printer.Title := 'テスト印刷'; Printer.BeginDoc; try //プリンタの解像度等を取得 DevPPIX := GetDeviceCaps( Printer.Canvas.Handle, LOGPIXELSX ); DevPPIY := GetDeviceCaps( Printer.Canvas.Handle, LOGPIXELSY ); //余白等の設定(mm単位) 値は適当に... ALeft := Trunc (20 * DevPPIX / 25.4); ATop := Trunc (23 * DevPPIY / 25.4); AWidth := Trunc (Printer.PageWidth - (20 * DevPPIX / 25.4)); AHeight := Trunc (AWidth * bmp.Height / bmp.Width); ARect := Rect(ALeft, ATop, AWidth, AHeight); Printer.Canvas.StretchDraw(ARect, bmp); finally Printer.EndDoc; bmp.Free; end; end;