LOCAL MyPdf
MyPdf=CREATEOBJECT("PdfHWBoxXControl.PdfHWBoxX")
Set Default To Sys(5)+Sys(2003)
MyPdf.PdfFileName=Ttoc(datetime(),1)+".Pdf"  &&要保存的文件名
MyPdf.AutoCreatePDF= .T.
MyPdf.AutoLaunch = .T.
MyPdf.AddImage(50,50,500,400,10,"c:\title.JPG",MyPdf.CurrentPageIdx) &&["c:\title.JPG"要插入的图片名],[50距离左,50距离上],[X宽:500横,Y高:400纵],["10"为图片左旋转10度]
MyPdf.CharSet =134 &&字符集:134简体中文,136为繁体中文,0为英文等
MyPdf.FontName  = "幼圆"
MyPdf.FontSize  = 22
*MyPdf.FontStyle = 15 &&加双删除线
MyPdf.TExtOut(50,250,"校订说明：①对目录、页面标题和链接标题不一致处，进行了校订；对主要关键词进行了统一。②对三千多处译文错误进行了修订或补译。③对英文原版错误，如:对…基本类页面的第一个表格全部进行了修正；对…属性页面中，将返回值的标题改为属性值；对其他多处错误也进行了修订。",MyPdf.CurrentPageIdx)
MyPdf.outTextBox(50,300,300,300,20,"月桂路湖滨半岛1幢105室")&&可以有多行文本
*-
MyPdf.ADDPage &&创建新页
MyPdf.CharSet =134
MyPdf.FontName  = "宋体"
MyPdf.FontSize  = 22
MyPdf.FontStyle = 15
MyPdf.TExtOut(10,250,"新页面：测试输出文件本内容...",MyPdf.CurrentPageIdx)
*-
MyPdf.ADDPage &&创建新页
MyPdf.CharSet =134
MyPdf.FontName  = "楷体"
MyPdf.FontSize  = 16
MyPdf.FontStyle = 0
MyPdf.outTextBox(10,300,300,300,20,"校订说明：①对目录、页面标题和链接标题不一致处，进行了校订；对主要关键词进行了统一。②对三千多处译文错误进行了修订或补译。③对英文原版错误，如:对…基本类页面的第一个表格全部进行了修正；对…属性页面中，将返回值的标题改为属性值；对其他多处错误也进行了修订。")
&&上面字符超过128个字就出错。
MyPdf.SaveEnd  &&保存并结束
RELEASE MyPdf  &&从内存中清除
*-

需求：
1.如何设置画线（横线、坚线、斜线【左斜、右斜】）
目的：做PDF报表

[此贴子已经被作者于2023-8-1 18:07编辑过]

文档没有？完全靠蒙？

要不你试试 libhpdf.dll   里面有个  HPDF_Page_LineTo

这个是在qq群里忘了那位大侠发的，里面只有一个控件，一个注册bat，一个表单里的命令按钮里的程序如前所述。