乐筑天下

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

[求助]请高手分析:用VBA打印这个文件,打印的不是设好窗口的范围

[复制链接]

3

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2009-12-3 07:57:00 | 显示全部楼层 |阅读模式
问题同上,代码如下。打印机选成你的机子上有的打印机,大家可试试。用同样的代码打印别的文件没问题。请高手分析原因。
Public Sub test()
    Dim pLayout As AcadLayout
    Dim minPnt(1) As Double
    Dim maxPnt(1) As Double
   
    Set pLayout = ThisDrawing.ActiveLayout
   
    minPnt(0) = 0: minPnt(1) = 0
    maxPnt(0) = 200: maxPnt(1) = 100
    pLayout.SetWindowToPlot minPnt, maxPnt
    pLayout.PlotType = acWindow
   
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

3

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2010-8-12 08:54:00 | 显示全部楼层
请大家试试,很奇怪,分析一下原因。
回复

使用道具 举报

2

主题

9

帖子

3

银币

初来乍到

Rank: 1

铜币
17
发表于 2010-10-19 15:13:00 | 显示全部楼层
Public Sub test()
    Dim pLayout As AcadLayout
    Dim minPnt(2) As Double
    Dim maxPnt(2) As Double
   
    Set pLayout = ThisDrawing.ActiveLayout
   
    minPnt(0) = 0: minPnt(1) = 0
    maxPnt(0) = 200: maxPnt(1) = 100



    Dim min_Pnt, max_Pnt As Variant
    min_Pnt = ThisDrawing.Utility.TranslateCoordinates(minPnt, 0, 3, False)
    max_Pnt = ThisDrawing.Utility.TranslateCoordinates(maxPnt, 0, 3, False)
    ReDim Preserve min_Pnt(0 To 1)
    ReDim Preserve max_Pnt(0 To 1)



    pLayout.SetWindowToPlot min_Pnt, max_Pnt
    pLayout.PlotType = acWindow
   
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-1 08:26 , Processed in 0.256897 second(s), 63 queries .

© 2020-2025 乐筑天下

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