社区
VB基础类
帖子详情
print 设置字体,以及间距的问题
chinaqdl21
2008-03-05 11:50:59
现在有一个票据打印机,在已经印制好的固定票据上指定位置填充内容
想用print 来打印,但是现在麻烦的是,字体和大小如何设置 有做过的请指点呀
...全文
318
3
打赏
收藏
print 设置字体,以及间距的问题
现在有一个票据打印机,在已经印制好的固定票据上指定位置填充内容 想用print 来打印,但是现在麻烦的是,字体和大小如何设置 有做过的请指点呀
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
cbm6666
2008-03-06
打赏
举报
回复
'给你一段我的代码示例
Private Sub printtk()
Printer.Font = "楷体_GB2312"
Printer.FontSize = 18
Printer.Print ""
Printer.Print ""
Printer.Print Space(10) & "浙江霸王衡器有限公司过磅单"
Printer.FontSize = 14
Printer.Print ""
Printer.Print "车牌号码:" & Trim(Labseq.Caption) & Space(10) & "日 期:" & Date$
Printer.Print "检测速度:" & "5km/h" & Space(14) & "时 间:" & Trim(Labtime.Caption)
Printer.Print "轴序号 轴 型 轮别 轴 重"
'*************** 打印机的其它纸张等属性常数设定 你高兴横着竖着打印随你选, 纸张大小随你设
Printer 对象常数
打印机颜色模式
常数 值 描述
vbPRCMMonochrome 1 单色输出
vbPRCMColor 2 彩色输出
双面打印
常数 值 描述
vbPRDPSimplex 1 单面打印
vbPRDPHorizontal 2 双面水平打印
vbPRDPVertical 3 双面垂直打印
'Printer.Orientation = vbPRORLandscape
打印方向
常数 值 描述
vbPRORPortrait 1 文档打印以纸的窄边作顶部
vbPRORLandscape 2 文档打印以纸的宽边作顶部
打印质量
常数 值 描述
vbPRPQDraft -1 草稿打印质量
vbPRPQLow -2 低级打印质量
vbPRPQMedium -3 中等打印质量
vbPRPQHigh -4 高级打印质量
PaperBin 属性
常数 值 描述
vbPRBNUpper 1 从上层纸盒进纸
vbPRBNLower 2 从下层纸盒进纸
vbPRBNMiddle 3 从中间纸盒进纸
vbPRBNManual 4 等待手动插入每页纸
vbPRBNEnvelope 5 从信封进纸器进纸
vbPRBNEnvManual 6 从信封进纸器进纸;但要等待手动插入
vbPRBNAuto 7 (缺省方式)从当前缺省纸盒进纸
vbPRBNTractor 8 从拖拉进纸器供纸
vbPRBNSmallFmt 9 从小型进纸器进纸
vbPRBNLargeFmt 10 从大型纸盒进纸
vbPRBNLargeCapacity 11 从大容量进纸器进纸
vbPRBNCassette 14 从附加的卡式纸盒进纸
PaperSize 属性
常数 值 描述
vbPRPSLetter 1 信笺, 8 1/2 x 11 英寸
vbPRPSLetterSmall 2 +A611 小型信笺, 8 1/2 x 11 英寸
vbPRPSTabloid 3 小型报, 11 x 17 英寸
vbPRPSLedger 4 分类帐, 17 x 11 英寸
vbPRPSLegal 5 法律文件, 8 1/2 x 14 英寸
vbPRPSStatement 6 声明书,5 1/2 x 8 1/2 英寸
vbPRPSExecutive 7 行政文件,7 1/2 x 10 1/2 英寸
vbPRPSA3 8 A3, 297 x 420 mm
vbPRPSA4 9 A4, 210 x 297 mm
vbPRPSA4Small 10 A4小号, 210 x 297 mm
vbPRPSA5 11 A5, 148 x 210 mm
vbPRPSB4 12 B4, 250 x 354 mm
vbPRPSB5 13 B5, 182 x 257 mm
vbPRPSFolio 14 对开本, 8 1/2 x 13 英寸
vbPRPSQuarto 15 四开本, 215 x 275 mm
vbPRPS1&H14 16 10 x 14 英寸
vbPRPS11x17 17 11 x 17 英寸
vbPRPSNote 18 便条,8 1/2 x 11 英寸
vbPRPSEnv9 19 #9 信封, 3 7/8 x 8 7/8 英寸
vbPRPSEnv10 20 #10 信封, 4 1/8 x 9 1/2 英寸
vbPRPSEnv11 21 #11 信封, 4 1/2 x 10 3/8 英寸
vbPRPSEnv12 22 #12 信封, 4 1/2 x 11 英寸
vbPRPSEnv14 23 #14 信封, 5 x 11 1/2 英寸
vbPRPSCSheet 24 C 尺寸工作单
vbPRPSDSheet 25 D 尺寸工作单
vbPRPSESheet 26 E 尺寸工作单
vbPRPSEnvDL 27 DL 型信封, 110 x 220 mm
vbPRPSEnvC3 29 C3 型信封, 324 x 458 mm
vbPRPSEnvC4 30 C4 型信封, 229 x 324 mm
vbPRPSEnvC5 28 C5 型信封, 162 x 229 mm
vbPRPSEnvC6 31 C6 型信封, 114 x 162 mm
vbPRPSEnvC65 32 C65 型信封,114 x 229 mm
vbPRPSEnvB4 33 B4 型信封, 250 x 353 mm
vbPRPSEnvB5 34 B5 型信封,176 x 250 mm
vbPRPSEnvB6 35 B6 型信封, 176 x 125 mm
vbPRPSEnvItaly 36 信封, 110 x 230 mm
vbPRPSEnvMonarch 37 信封大王, 3 7/8 x 7 1/2 英寸
vbPRPSEnvPersonal 38 信封, 3 5/8 x 6 1/2 英寸
vbPRPSFanfoldUS 39 U.S. 标准复写簿, 14 7/8 x 11 英寸
vbPRPSFanfoldStdGerman 40 德国标准复写簿, 8 1/2 x 12 英寸
vbPRPSFanfoldLglGerman 41 德国法律复写簿, 8 1/2 x 13 英寸
vbPRPSUser 256 用户定义
chinaqdl21
2008-03-06
打赏
举报
回复
用printer是不是必须驱动打印机呀,我的意思是如果不驱动打印机 直接只是用print可以吗?
lcsfxs
2008-03-06
打赏
举报
回复
Dim j, n As Integer
ADOjna.MoveFirst
n = 0
Printer.Width = 13904 '' 13904
Printer.Height = 16836 '' 3800
Printer.Orientation = 1
With ADOjna
If MsgBox("请检查打印机是否接电与装纸,开始打印吗?", _
vbYesNo + vbQuestion) = vbYes Then
Do Until .EOF
n = n + 1
If n Mod 25 = 1 Then
nLeft = lcsleft
nTop = lcstop
Printer.Line (lcsleft - 200, lcstop + 1000)-(lcsleft + 10500, lcstop + 1000)
Printer.Line (lcsleft + 1000, lcstop + 1300)-(lcsleft + 1900, lcstop + 1300)
Printer.Line (lcsleft + 3300, lcstop + 1300)-(lcsleft + 9100, lcstop + 1300)
' Printer.Line (lcsleft - 200, lcstop + 2650)-(lcsleft + 10500, lcstop + 2650)
' Printer.Line (lcsleft - 200, lcstop + 1000)-(lcsleft - 200, lcstop + 10650)
' Printer.Line (lcsleft + 150, lcstop + 1000)-(lcsleft + 150, lcstop + 10650)
' Printer.Line (lcsleft + 1000, lcstop + 1000)-(lcsleft + 1000, lcstop + 10650)
' Printer.Line (lcsleft + 1400, lcstop + 1300)-(lcsleft + 1400, lcstop + 10650)
' Printer.Line (lcsleft + 1900, lcstop + 1000)-(lcsleft + 1900, lcstop + 10650)
' Printer.Line (lcsleft + 2700, lcstop + 1000)-(lcsleft + 2700, lcstop + 10650) '客户名称
' Printer.Line (lcsleft + 3300, lcstop + 1000)-(lcsleft + 3300, lcstop + 10650)
' Printer.Line (lcsleft + 4100, lcstop + 1300)-(lcsleft + 4100, lcstop + 10650) '是否按约定时间上门服务
' Printer.Line (lcsleft + 4900, lcstop + 1300)-(lcsleft + 4900, lcstop + 10650)
' Printer.Line (lcsleft + 5700, lcstop + 1300)-(lcsleft + 5700, lcstop + 10650) '是否携带两布一套
' Printer.Line (lcsleft + 6500, lcstop + 1300)-(lcsleft + 6500, lcstop + 10650)
' Printer.Line (lcsleft + 7100, lcstop + 1300)-(lcsleft + 7100, lcstop + 10650) '是否进行业务推介
' Printer.Line (lcsleft + 7700, lcstop + 1300)-(lcsleft + 7700, lcstop + 10650)
' Printer.Line (lcsleft + 8300, lcstop + 1300)-(lcsleft + 8300, lcstop + 10650)
' Printer.Line (lcsleft + 9100, lcstop + 1000)-(lcsleft + 9100, lcstop + 10650)
' Printer.Line (lcsleft + 10500, lcstop + 1000)-(lcsleft + 10500, lcstop + 10650)
Printer.Font.Size = 18
Printer.Font.Bold = True
Printer.CurrentX = nLeft + 2500
Printer.CurrentY = nTop - 500
Printer.Print "网通客户障碍维护回访记录系统"
Printer.Font.Size = 14
Printer.Font.Bold = True
Printer.CurrentX = nLeft + 2800
Printer.CurrentY = nTop + 200
Printer.Print Format(DTPicker1(0).Value, "yyyy年mm月dd日") & " 到"
Printer.CurrentX = nLeft + 5400
Printer.CurrentY = nTop + 200
Printer.Print Format(DTPicker1(1).Value, "yyyy年mm月dd日")
Printer.Font.Size = 10
Printer.Font.Bold = False
Printer.CurrentX = nLeft + 3000
Printer.CurrentY = nTop + 600
Printer.Print "√ 是或满意 × 否或不满意"
Printer.CurrentX = nLeft - 100
Printer.CurrentY = nTop + 1400
Printer.Print "序"
Printer.CurrentX = nLeft - 100
Printer.CurrentY = nTop + 1800
Printer.Print "号"
Printer.CurrentX = nLeft + 250
Printer.CurrentY = nTop + 1400
Printer.Print "日期"
Printer.CurrentX = nLeft + 250
Printer.CurrentY = nTop + 1800
Printer.Print "月/日"
Printer.CurrentX = nLeft + 1050
Printer.CurrentY = nTop + 1050
Printer.Print "业务种类"
Printer.CurrentX = nLeft + 1100
Printer.CurrentY = nTop + 1400
Printer.Print "固"
Printer.CurrentX = nLeft + 1100
Printer.CurrentY = nTop + 1800
Printer.Print "话"
Printer.CurrentX = nLeft + 1500
Printer.CurrentY = nTop + 1400
Printer.Print "宽"
Printer.CurrentX = nLeft + 1500
Printer.CurrentY = nTop + 1800
Printer.Print "带"
Printer.CurrentX = nLeft + 2000
Printer.CurrentY = nTop + 1400
Printer.Print "电话"
Printer.CurrentX = nLeft + 2000
Printer.CurrentY = nTop + 1800
Printer.Print "号码"
Printer.CurrentX = nLeft + 2800
Printer.CurrentY = nTop + 1400
Printer.Print "客户"
Printer.CurrentX = nLeft + 2800
Printer.CurrentY = nTop + 1800
Printer.Print "名称"
免费DataGridView打印及.NET轻松打印控件5.5版(VB打印,C#打印)
本DataGridView打印控件和.NET打印控件5.5版(含报表模板设计组件)2014年2月8日修改完成,完全免费,在.NET2.0及以上环境下都可以使用(VB打印、C#打印都是可以的),有帮助文档与使用实例。 与上一版本的5.4版相比,新控件5.5版的主要更改如下: 1、对控件进行了完善,DGV
Pr
int
、VB2008
Pr
int
、EasyReport组件的打印预览速度有较大的提升; 2、VB2008
Pr
int
与EasyReport添加了二维码打印的功能,该功能使用开源的Zxing.NET实现; 3、添加了DrawDGVEx函数,一方面可以以DGV
pr
int
对象中的参数在VB2008
Pr
int
组件中打印,另一方面提供了并排打印多个表格的重载函数; 4、DGV
Pr
int
组件添加了报表头与报表尾内容的
设置
属性和参数; 5、DGV
Pr
int
与VB2008
Pr
int
组件在以工资条方式打印表格时,添加了是否自动换行续打的功能(即,如果工资条列太多在一行中打印不下时,可以指定自动换行续打); 6、修改了EasyReport组件的设计界面,每个区域的属性放在属性窗口中显示; 7、EasyReport组件添加了简单的多栏打印支持功能; 8、VB2008
Pr
int
组件添加了
Pr
int
DGVFixedWidth函数,方便将DataGridView按指定宽度进行打印; 9、去掉了网页打印功能(因为在IE11下没法使用,所以干脆去掉),去掉了打印RDLC报表的功能; 10、其他一些完善,比如在导出Excel时,如果Columheader不可见,则不导出;解决了快速导出Excel时部分特殊列没有表格线
问题
(比如是数值列,但使用了%等格式);VB2008
Pr
int
组件添加了PageScale可以指定打印时的缩放比例等等。 本控件特色: 1、强大的DataGridView打印功能,不仅可以以多种形式(普通打印、分栏打印、跨页打印、工资条打印)打印DGV表格,基本上能完全按DGV控件本身
设置
的格式如
字体
、字号、背景颜色、前景颜色、单元格对齐方式等打印出来,文字图像都可以打印,而且是完全根据表格当前的显示顺序进行打印的,基本上做到了所见即所得的打印。 2、报表设计功能。报表模板设计组件EasyReport与WebEasyReport组件可以设计普通报表、分组报表、套打模板等,分别以DataGridView为数据源。控件的位置以毫米为计量单位,定位准确,很适合套打单据设计。 3、强大的图表打印功能。5.2版控件新增了一个Chartlet的组件,使用非常方便,可以生成柱形图、饼图、折线图等多种图形,而且可以
设置
2D或3D效果,既可以在打印控件中打印出来,也可以在Graphics对象中显示。 4、分组汇总打印DataGridVeiw功能,每组还可以自动换新页打印,还可以自动增加行号。 5、强大的文本打印输出功能,控件提供多个文本打印重载函数,打印文本时,如果需要,控件会自动换行和换页打印输出。还增加了以指定行
间距
及字符
间距
打印文本的功能,可以用固定行距,也可以用单倍或多倍行距打印文本。 6、强大的绘图功能,基本上.NET的GDI+的绘图函数(如直线、矩形、路径、多边形、曲线等)都有,只有个别函数的名称有点区别。 7、支持同一文档多种版面格式打印(类似于Word中的节的功能):对同一份文档,不同的页面可以
设置
不同的格式(纸张大小、纸张方向、页边 距),只需要在新增一页时在NewPage方法中指定要使用的页面格式即可,使用非常简单。 8、报表文件保存功能。本控件允许将当前打印预览的内容保存为报表文件,以后使用本控件重新打开该报表文件即可重现原来保存报表时的打印内容。 9、Excel导出功能,可以将DataGridView和GridView导出为Excel文件,5.2版控件还增加了不依赖Office的导出Excel功能,而且速度非常快,5.4版还增加了合并单元格的导出功能。 10、打印DataGridView时的打印方案保存与读取功能。可以将当前打印参数保存为打印方案文件,或者从保存的打印方案文件中读取打印参数。 11、水印打印功能。根据需要,可以在页面中打印或不打印以半透明空心文字打印水印。 12、强大的容器控件打印功能(DrawPanel函数)。借助该函数,您只需要在您的容器控件中设计好要打印的内容及打印内容的相对位置,控件轻松帮你打印出来(如果超过一页,控件会自动换页续打)。 13、特殊文字效果打印功能。控件具有打印浮雕文字、阴影文字、空心文字、块文字的功能。 14、页眉页脚中既可打印文字,也可打印图像,或者即打印图像又打印输出文字。 15、图像与图标打印输出功能。 16、多表头(跨行跨列的复杂表头)打印功能,多表头组件支持多表头显示与打印、单元格内容的合并显示、打印与导出。 17、自定义纸张支持功能。 18、纸张背景图片
设置
打印功能。 19、.NET4.0支持功能(是单独的一个文件) 20、直接打印窗口中的TreeView控件功能 21、打印窗口中的ListView功能。 22、RichTextBox控件的RTF文本打印功能。 23、斜线表头打印功能(5.4版新增)。 24、二维码打印功能(5.5版本增加)。 我将持续改进该控件,并将不断推出控件的新版本,要查看或下载控件的升级版本,请登陆网站:http://myyouping.download.csdn.net/ 。具体使用方法请参见帮助文件与实例文件,如有疑问或好的建议,请与我联系: 邮箱:myyouping@139.com Q Q:479781502
Lodop
设置
文本项行
间距
、字
间距
LODOP给文本项ADD_
PR
INT
_TEXT
设置
字
间距
、行
间距
,可以在打印设计页面,右键属性里
设置
,然后在打印设计生成代码,也可以直接写代码。LineSpacing行
间距
、LetterSpacing字
间距
,还有TextFrame文本框样式,这里的是文本的框,每个文本的框。 LODOP.ADD_
PR
INT
_TEXT(115,169,100,20,"新加文本2"); LODOP.SET_
PR
...
Ueditor
设置
默认
字体
、字号、行
间距
,添加
字体
种类
Ueditor默认
字体
、字号、行
间距
的修改: ueditor默认字号是16号,默认
字体
为sans-serif,默认行
间距
为5px,如下图所示: 首先,修改ueditor.all.js文件中如上图红框中对应的
字体
、字号、行
间距
的值; 其次,ueditor.all.min.js文件为ueditor.all.js的压缩版,需要一并修改其中对应的
字体
、字号、行
间距
的值,如下图所示:
字体
种类的添加: u...
Ueditor
设置
默认
字体
、字号、行
间距
,添加
字体
种类(转)
Ueditor默认
字体
、字号、行
间距
的修改: ueditor默认字号是16号,默认
字体
为sans-serif,默认行
间距
为5px,如下图所示: 首先,修改ueditor.all.js文件中如上图红框中对应的
字体
、字号、行
间距
的值; 其次,ueditor.all.min.js文件为ueditor.all.js的压缩版,需要一并修改其中对应的
字体
、字号、行
间距
的值,如下图所示:
字体
种类的添加...
lodop
设置
html
字体
大小无效,[图片问答]LODOP
字体
设置
方法
字体
设置
方法:一、整体
设置
(针对文本项),打印初始化后、增加打印项之前调用本函数LODOP.SET_
PR
INT
_STYLE("FontSize",11);二、单个打印项(针对文本项)进行
字体
设置
,例如:LODOP.SET_
PR
INT
_STYLEA(3,"FontName","隶书");
设置
第3个内容项的
字体
为隶书。LODOP.SET_
PR
INT
_STYLEA(3,"FontSize",15);
设置
...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章