名前
題名
▼ 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だからか。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link