社区
VB基础类
帖子详情
怎样设置printer.width??
qhdzh
2003-11-23 10:19:33
我在程序中通过下列代码来设置纸张大小,可是不管用,请问应怎样设置,我的系统为2000server.
Printer.PaperSize = vbPRPSUser
Printer.Height = 14742
Printer.Width = 10773
...全文
88
1
打赏
收藏
怎样设置printer.width??
我在程序中通过下列代码来设置纸张大小,可是不管用,请问应怎样设置,我的系统为2000server. Printer.PaperSize = vbPRPSUser Printer.Height = 14742 Printer.Width = 10773
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
rainstormmaster
2003-11-23
打赏
举报
回复
有些打印机不支持vbPRPSUser,需要注意
你可以用GDI函数试试
vb6.0设计自定义打印机纸张
用VB6.0 编写的自定义打印机纸张,含左右、上下边距,及纸型选择打印纸的大小及边距
用
pr
inte
r对象打印表格的方法教程,VB6.0源代码编写
用
pr
inte
r对象打印表格的方法教程,VB6.0源代码编写
VB MSChart对直方图表数据进行打印.rar
VB报表及预览功能,对图表数据进行打印,这个图表的数据默认是写在代码中,实际使用时,往往是从数据库读取出来数据,然后生成。因此本程序只是演示直方图图表的生成及预览和打印功能,生成图表,请参考以下核心 代码:
Pr
ivate Sub Command1_Click() MSChart1.EditCopy Picture1.Picture = Clipboard.GetData(vbCFDIB) End Sub
Pr
ivate Sub Command2_Click() MSChart1.EditCopy Picture1.Picture = Clipboard.GetData(vbCFDIB)
Pr
inte
r.PaintPicture Picture1.Picture, Picture1.
Width
, Picture1.Height
Pr
inte
r.CurrentX = 100
Pr
inte
r.CurrentY = 100
Pr
inte
r.NewPage ' 发送新页。
Pr
inte
r.EndDoc ' 打印完毕。 End Sub 编译运行后,效果如图所示。
VB 打印图像
VB 打印图像 VB 打印图像 VB 打印图像 VB 打印图像
用turtle库画一朵玫瑰花
python爱心代码高级 用turtle库画一朵玫瑰花 #!/usr/bin/env python # coding: utf-8 #绘制玫瑰花并添加文字 import turtle #
设置
画布大小 # turtle.screensize(canv
width
=None, canvheight=None, bg=None) turtle.setup(
width
=0.6, height=0.6) #
设置
初始位置 turtle.penup() turtle.left(90) turtle.fd(200) turtle.pendown() turtle.right(90) # 输出文字
pr
inte
r = turtle.Turtle()
pr
inte
r.hideturtle()
pr
inte
r.penup()
pr
inte
r.back(200)
pr
inte
r.write("赠给亲爱的 XX\n\n", align="right", font=("楷体", 16, "bold"))
pr
inte
r.write("from XXX", align="center", font
VB基础类
7,789
社区成员
197,583
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章