| [2287] プレビュー印刷で！？ | 返信 削除 |
| 2009/4/16 (木) 12:22:33 Syake |
|
マスターお久しぶりです。 この一週間、春を一気に通り過ぎ初夏を思わせる暑さです。 当地広島では、新球場（通称：マツダスタジアム）が完成し 例年よりも盛り上がっているようです。 私めも、ほとぼりが冷めた頃に、こっそりと・・・・ ところで、印刷プレビューなんですが、「あれ、電話番号の右 端が切れてるな」などと気付いてから何でだろう？などと苦闘 しておりました。 procedure TForm1.Button1Click(Sender: TObject); var i,j,X1,X2,Y1,Y2 :Integer; begin plSetPrinter1.PaperNumber := DMPAPER_A4; plPrev1.plSetPrinter := plSetPrinter1; plPrev1.BeginDoc; try with plPrev1 do begin with Canvas do begin FontName('ＭＳ Ｐ明朝'); FontSize(11); Y1 := 100; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'000-000-0000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'(000)000-0000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'000-0000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'0,000,000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'000-000-000-000-0000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'0000000000000000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'あいうえおかきくけこ'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'あいう-えおかき-くけこ'); Y1 := Y2; Y2 := Y1 + 50; FontName('ＭＳ 明朝'); TextRectRC(100,500,Y1,Y2,'000-000-000-000-0000'); Y1 := Y2; Y2 := Y1 + 50; TextRectRC(100,500,Y1,Y2,'0000000000000000'); X1 := 150; Y1 := 200; end; end; finally plPrev1.EndDoc; end; plPrev1.ShowModal; end; しかし、最終的に出た結論。 なんだVistaだからか。  |