マスターお久しぶりです。
この一週間、春を一気に通り過ぎ初夏を思わせる暑さです。
当地広島では、新球場（通称：マツダスタジアム）が完成し
例年よりも盛り上がっているようです。
私めも、ほとぼりが冷めた頃に、こっそりと・・・・
ところで、印刷プレビューなんですが、「あれ、電話番号の右
端が切れてるな」などと気付いてから何でだろう？などと苦闘
しておりました。
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だからか。
 |