📄 报表和打印输出.htm
字号:
<html><head><style type="text/css"><!--.p9 { font-family: "宋体"; font-size: 9pt}a {text-transform: none; text-decoration: none;}a:hover {text-decoration: underline; color: #FF0000;}--></style><title></title></head><body background="di2001.jpg"><h3 align="center"><font COLOR="#AOAO99">报表和打印输出</font></h3><table width="100%"> <tr> <td><font color="0000FF"><a name="1">格式化整数输出。</a></font></td> </tr> <tr> <td> 比较大的数字在输出时会显得不易阅读，在Delphi中显示带分节号的数字是相当简单的一件事，如下即可：xxxxx．caption：ΚFormatFloat（′＃′，524667500）。<br> </td> </tr> <tr> <td><font color="0000FF"><a name="2">任意打印</a></font></td> </tr> <tr> <td> 有时我们要打印任意排列的表或往已经印好的登记表上对号入座写上数据时，可以新建一个窗体（假设为Form1），再把Form1的BorderStyle设为bsNone、AutoScroll设为True，接下来再创建一个新窗体（假设为Form2），再建个按钮Button1，编写代码：<br> procedure TForm2.Button1Click(Sender: TObject);<br> begin<br> Form1.Width :=900;<br> Form1.Height :=800;<br> Form1.Print;<br> end;<br> 接下来你在Form1上对应的位置写上数据，运行后按Button1就会一五一十的打印下来了。<br> </td> </tr> <tr> <td><font color="0000FF"><a name="3">打印机的分辨率问题？ </a></font></td> </tr> <tr> <td>Printer Resolution ?<br> 问:<br> I want to know, wich way I have to program, so every print is equal. No<br> matter what resolution<br> of the printer (300 or 600 dpi).<br> Since now I program: TextOut(DC, 150, 150...) on a 300 dpi printer. But on<br> 600 dpi, everything<br> looks a bit strange, (small).<br> What Objects can I use to print corectly??<br> 答:<br> I get the printer resolution (and unprintable are if desired) and<br> then specify coordinates using decimal inches * resulution e.g.<br> x = trunc(1.5 * ResX) at 300 dpi will begin at 360 * 1.5 or 540 pixels.<br> Get Resolution and unprintable<br> ResX := GetDeviceCaps(ACanvas.Handle,LOGPIXELSX);<br> ResY := GetDeviceCaps(ACanvas.Handle,LOGPIXELSY);<br> pOffsetX := GetDeviceCaps(ACanvas.Handle,PHYSICALOFFSETX);<br> pOffsetY := GetDeviceCaps(ACanvas.Handle,PHYSICALOFFSETY);<br> print something<br> Printer.Canvas.TextOut(trunc(1.5 * ResX)-pOffsetX,<br> trunc(2.5 * ResY)-pOffsetY,'Hello');<br> This is nice when printing data on an existing paper form as you can<br> just measure it up in decimal inches.<br> </td> </tr> <tr> <td><font color="0000FF"><a name="4">用Delphi编写打印程序的窍门<br> 湖北 杨德军</a></font></td> </tr> <tr> <td> 如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。<br> 1.获娶显示当前打印机的分辨率<br> Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -