D
dzl19
Unregistered / Unconfirmed
GUEST, unregistred user!
//以下是我直接在打印机里打印内容的简单思路，实现了直接向打印机发送线或文本
var
M_RateX,M_RateY
ouble;
begin
//水平每毫米象素数,float
M_RateX:=GetDeviceCaps(printer.Handle,HORZRES)/GetDeviceCaps(printer.Handle,HORZSIZE);
//铅直每毫米象素数,float
M_RateY:=GetDeviceCaps(printer.Handle,VERTRES)/GetDeviceCaps(printer.Handle,VERTSIZE);
//在以毫米为单位的位置(30,40)开始打印一行字
Printer.Canvas.Font.Style:=[];
Printer.Canvas.Font.Size :=10;
Printer.Canvas.Font.Name :='宋体';
Printer.Canvas.TextOut(V_x1,V_y1,'测试打印内容!');
//画以毫米为单位的线,从(10,10)到(110,10)
Printer.Canvas.Pen.Width :=1;
Printer.Canvas.MoveTo(round(10*M_Ratex),round(10*M_Ratey));
Printer.Canvas.LineTo(round(110*M_Ratex),round(10*M_Ratey));
end;
1.现在，我想实现 预览 界面，然后再在 预览 界面里发送到打印机
//请有做过的给个例子指点！--用于打印进帐单或电汇单时候，可以再看一眼核对后打印出来。
2.我想请问如何再打印时候，把字体变胖（高不变）或拉高（宽不变）呢！
//请高手指点！--比如，把标题的内容打印成有自己风格的样式。
3.要作到现 预览 界面里看到的和打印出来的是一样的，并可以有缩小或放大一定倍数打印
//请高手指点！--比如，恰好纸张大一点或小一点，还可以使用。
4.我有个思路，是做一个 预览 的面板，按照一定比例往里写内容，象向对Printer.Canvas一样，不作到如何操作！
//请高手指点一二！
var
M_RateX,M_RateY
ouble;begin
//水平每毫米象素数,float
M_RateX:=GetDeviceCaps(printer.Handle,HORZRES)/GetDeviceCaps(printer.Handle,HORZSIZE);
//铅直每毫米象素数,float
M_RateY:=GetDeviceCaps(printer.Handle,VERTRES)/GetDeviceCaps(printer.Handle,VERTSIZE);
//在以毫米为单位的位置(30,40)开始打印一行字
Printer.Canvas.Font.Style:=[];
Printer.Canvas.Font.Size :=10;
Printer.Canvas.Font.Name :='宋体';
Printer.Canvas.TextOut(V_x1,V_y1,'测试打印内容!');
//画以毫米为单位的线,从(10,10)到(110,10)
Printer.Canvas.Pen.Width :=1;
Printer.Canvas.MoveTo(round(10*M_Ratex),round(10*M_Ratey));
Printer.Canvas.LineTo(round(110*M_Ratex),round(10*M_Ratey));
end;
1.现在，我想实现 预览 界面，然后再在 预览 界面里发送到打印机
//请有做过的给个例子指点！--用于打印进帐单或电汇单时候，可以再看一眼核对后打印出来。
2.我想请问如何再打印时候，把字体变胖（高不变）或拉高（宽不变）呢！
//请高手指点！--比如，把标题的内容打印成有自己风格的样式。
3.要作到现 预览 界面里看到的和打印出来的是一样的，并可以有缩小或放大一定倍数打印
//请高手指点！--比如，恰好纸张大一点或小一点，还可以使用。
4.我有个思路，是做一个 预览 的面板，按照一定比例往里写内容，象向对Printer.Canvas一样，不作到如何操作！
//请高手指点一二！