乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 78|回复: 4

VBA中范围打印命令是什么?

[复制链接]

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-24 12:03:00 | 显示全部楼层 |阅读模式
VBA中有显示打印、根据图纸大小打印等,VBA中范围打印命令是什么?
回复

使用道具 举报

1

主题

9

帖子

2

银币

初来乍到

Rank: 1

铜币
13
发表于 2005-2-24 12:40:00 | 显示全部楼层
object.SetWindowToPlot(LowerLeft, UpperRight)
Object
,
The object or objects this method applies to.
LowerLeft
Variant (two-element array of doubles); input-only
The X and Y values for the lower-left window.
UpperRight
Variant (two-element array of doubles); input-only
The X and Y values for the upper-right window.
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-24 20:54:00 | 显示全部楼层
可以加上注释吗?
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-24 20:56:00 | 显示全部楼层
Private Sub CommandButton1_Click()
ThisDrawing.PaperSpace.Layout.ConfigName = "hp laserjet 1000"
' 到布局
        If ThisDrawing.ActiveSpace = acModelSpace Then
        ThisDrawing.ActiveSpace = acPaperSpace
         ThisDrawing.MSpace = False
ZoomExtents
        End If
'打印落在选定空间内的全部内容
ThisDrawing.PaperSpace.Layout.PlotType = acExtents
'设计为草图打印,不计比例
        ThisDrawing.PaperSpace.Layout.StandardScale = acScaleToFit
        ' 设置打印份数为1
ThisDrawing.Plot.NumberOfCopies = a
' 开始打印
ThisDrawing.Plot.PlotToDevice
Unload UserForm8
' 到模型
         If ThisDrawing.ActiveSpace = acPaperSpace Then
         ThisDrawing.MSpace = True
         ThisDrawing.ActiveSpace = acModelSpace
         End If
        End Sub
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-25 21:25:00 | 显示全部楼层
如4楼程序所示,是我编的一个程序,启动CAD后,用程序画的第一个图,可以全图打印,删除此图,再次用程序划图,再次打印时,总是不能全图打印,是否如下语名有问题?       
'打印落在选定空间内的全部内容
ThisDrawing.PaperSpace.Layout.PlotType = acExtents
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 19:43 , Processed in 6.879028 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表