怎样设置printer.width？？

qhdzh 2003-11-23 10:19:33

我在程序中通过下列代码来设置纸张大小，可是不管用，请问应怎样设置，我的系统为2000server.
Printer.PaperSize = vbPRPSUser
Printer.Height = 14742
Printer.Width = 10773

...全文

88 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2003-11-23

打赏
举报

回复

有些打印机不支持vbPRPSUser，需要注意

你可以用GDI函数试试

用VB6.0 编写的自定义打印机纸张，含左右、上下边距，及纸型选择打印纸的大小及边距

用printer对象打印表格的方法教程,VB6.0源代码编写

VB报表及预览功能，对图表数据进行打印，这个图表的数据默认是写在代码中，实际使用时，往往是从数据库读取出来数据，然后生成。因此本程序只是演示直方图图表的生成及预览和打印功能，生成图表，请参考以下核心代码：　　Private Sub Command1_Click() 　　 MSChart1.EditCopy 　　 Picture1.Picture = Clipboard.GetData(vbCFDIB) 　　End Sub 　　Private Sub Command2_Click() 　　 MSChart1.EditCopy 　　 Picture1.Picture = Clipboard.GetData(vbCFDIB) 　　 Printer.PaintPicture Picture1.Picture, Picture1.Width, Picture1.Height 　　 Printer.CurrentX = 100 　　 Printer.CurrentY = 100 　　 Printer.NewPage ' 发送新页。　　 Printer.EndDoc ' 打印完毕。　　End Sub 　　编译运行后，效果如图所示。

VB 打印图像 VB 打印图像 VB 打印图像 VB 打印图像

python爱心代码高级用turtle库画一朵玫瑰花 #!/usr/bin/env python # coding: utf-8 #绘制玫瑰花并添加文字 import turtle # 设置画布大小 # turtle.screensize(canvwidth=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) # 输出文字 printer = turtle.Turtle() printer.hideturtle() printer.penup() printer.back(200) printer.write("赠给亲爱的 XX\n\n", align="right", font=("楷体", 16, "bold")) printer.write("from XXX", align="center", font

7,789

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章