打印时如何只打印表单中的DbGrid和Panel，而其它控件不打印呢？难啊。

2003-08-26 07:48:31 173 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32硬件IIC驱动0.96寸OLED：SSD1315批量点不亮排查与DMA优化在嵌入式显示方案中，IIC总线因其简单易用成为OLED模块的常见接口。硬件IIC通过专用状态机处理时序，配合DMA可实现零CPU干预传输，显著提升系统实时性。然而，实际部署中常因驱动芯片差异导致批量点不亮问题，尤其是SSD1315与SSD1306在电荷泵配置和上电时序上的隐蔽区别。本文深入剖析STM32 HAL库配置要点、初始化序列陷阱、DMA传输优化及错误恢复策略，结合批量生产经验，提供从点亮到产品化的完整解决方案，帮助开发者避开常见坑点，提升显示稳定性。阅读详情

在表单中有SpeedButton,treeview,DbGrid,Panel。但是我想点打印时只打印DbGrid，如何实现？只打印Panel又该如何实现呢？高手请进。

...全文

别再羡慕专业版！用这个批处理脚本，一键给Win11家庭版装上官方沙盒本文详细介绍了如何通过批处理脚本在Windows 11家庭版上安装官方Windows沙盒（Windows Sandbox），无需复杂操作即可享受专业版功能。脚本自动激活系统内置组件，提供安全隔离的虚拟化环境，适用于软件测试、安全浏览等场景。阅读详情

jiaxianglei

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

冰刀封情 2003-09-07

打赏
举报

procedure TForm1.Button2Click(Sender: TObject);
var
pl,pr,pt,pb:integer;//页边距
px,py:integer;//打印机分辨率
ps:integer;//打印机与显示器分辨率之比
lh:integer;//行高
i:integer;
x,y:integer;//打印坐标
rowb,colb:integer; //行距、行距
begin
//初始化页面
pl:=spinedit1.Value;
pr:=spinedit2.Value;
pt:=spinedit3.Value;
pb:=spinedit4.Value;
rowb:=spinedit6.Value;//行距
colb:=spinedit7.Value;//列距
//将获得的打印机分辨率由厘米转换为英寸
px:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
py:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);
//将屏幕分辨率转换为打印机的比例　
ps:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)
/Screen.PixelsPerInch);
//设置打印方向
if combobox1.Text='横向打印' then
printer.Orientation:=poPortrait;
else
printer.Orientation:=poLandscape;
//获得打印的字体和大小
printer.Canvas.Font.Name:=combobox2.Text;
printer.canvas.Font.Size:=spinedit5.Value;
printer.canvas.Font.Color:=clred;
printer.Canvas.Pen.Color:=clblue;
//设置行高
lh:=printer.canvas.textheight(dbgrid1.Font.Name);
//打印的起始位置(打印机画布上的位置)
x:=PX*pl;
y:=PY*pt;
//打印DBGrid1中的内容
if (table1.Active=true) and (table1.RecordCount>0) then
begin
//设置一打印机任务标题
printer.Title:='DBGrid内容打印';
with printer do
begin
BeginDoc;
table1.First;
while not table1.Eof do
begin
for i:=0 to DBGrid1.FieldCount-1 do
begin
//设定打印的宽度
if (x+DBGrid1.Columns.Items[i].Width*ps)
<=(PageWidth-ps*pr) then
begin
//画出表格线
Printer.Canvas.Rectangle(x,y,x+dbgrid1.Columns.Items[i].Width*ps,y+lh);
//如果为第一行时，打印DBGrid1确的标题
if y=PY*pt then
Canvas.TextOut(x+rowb,y+colb,
DBGrid1.Columns[i].Title.Caption)
else
//其它行，打印每行的内容
Printer.Canvas.TextOut(x+rowb,y+colb,
DBGrid1.Fields[i].asString);
end;
//下一列的横坐标，下一列的纵坐标不变
x:=x+dbgrid1.Columns.Items[i].Width*ps;
end;
//打印下一记录
if not (y=py*pt) then
table1.next;
x:=px*pl; //打印下一行时，横坐标回到行首
y:=y+lh;
//打印满一页时,新建一页
if (y+lh)>(PageHeight-py*pb) then
begin
NewPage;
x:=px*pl;
y:=py*pt;
end;
end;
EndDoc;
end;
table1.First;//回到DBGrid1首行
Application.MessageBox('已打印完成','打印',32);
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
//获得打印可选字体,并设置初始字体为DBGrid1的字体,字号
combobox2.Items:=printer.Fonts;
combobox2.Text:=dbgrid1.Font.Name;
spinedit5.value:=dbgrid1.Font.Size;
table1.DatabaseName:=ExtractFilePath(Application.ExeName);
table1.open;
end;
end.
从这源码就可以学到如何只打印dbgrid中的数据了

xinyu7737 2003-09-06

打赏
举报

好象不能单独打印DbGrid，除非把它单独放在一表单中。

jiaxianglei 2003-08-26

打赏
举报

我想应该可以实现的呀，但就是不知道怎么实现。各位大虾帮帮忙呀。

打印时如何只打印表单中的DbGrid和Panel，而其它控件不打印呢？难啊。

相关推荐