[VBA程序]：VBA打印图形时的设置问题？

macula55

VBA编写打印图形的程序，如何得到和修改图纸的方向？
然后再确定图形的方向。

VBA可以对布局layout对象设置打印机，打印样式，打印纸尺寸等，但我确无法找到用什么代码控制打印纸张纵向或横向布置？

ps122

Layout.PlotRotation = ac0degrees或Layout.PlotRotation = ac90degrees

macula55

二楼说得应该只是把图形旋转了，但并不能得到或设置图纸的方向呀。

ps122

老兄，不能得到你的效果？下图中的图纸方向就是通过这个方法实现的，最终的图纸方向还和打印机的设置有关，你试试。

macula55

楼上，我就是想得到并设置打印机的纸张方向。并不是在CAD中设置图形的方向。

[打印机中的纸张方向]！！！

y1982_0

我试过了，二楼说的对，的确可以改变打印的方向，你用我写的这个试试看！

Public Sub PlotYDF()

    Dim point1(0 To 1) As Double
    Dim point2(0 To 1) As Double
    '定义打印的左下角点和右上角点
    point1(0) = 0: point1(1) = 0
   
    point2(0) = 210: point2(1) = 297
   
    '确定活动空间为模型空间
    If ThisDrawing.ActiveSpace = acPaperSpace Then
        ThisDrawing.MSpace = True
        ThisDrawing.ActiveSpace = acModelSpace
    End If
   
   
    '指定打印机(需要指明你的打印机名称)
    ThisDrawing.ModelSpace.Layout.ConfigName = "\\Scadzgy\HP LaserJet 1100 (MS)"
    '指定纸张
    ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "A4"
    '指定打印样式
    ThisDrawing.ModelSpace.Layout.StyleSheet = "acad.ctb"
    '指定打印范围
    ThisDrawing.ModelSpace.Layout.SetWindowToPlot point1, point2
    '接收打印范围
    ThisDrawing.ModelSpace.Layout.GetWindowToPlot point1, point2
    '指定为窗口打印
    ThisDrawing.ModelSpace.Layout.PlotType = acWindow
    '指定为横向打印
    ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
    '设置打印份数
    ThisDrawing.plot.NumberOfCopies = 1
   
    ThisDrawing.plot.PlotToDevice

End Sub

zcmjw

图纸方向就是通过这个方法实现的

macula55

我在说得清楚些，你们遇到过这种情况吗：

系统有两台A3的打印机，一台帐帐方向为“横向”，另一台纸张方向为“纵向”。
用楼上的那个程序，如果先选择了第一台打印机出图，然后其它设置不变但是打印机换为第二台，则图形在图纸上的方向和位置都是错误的（掉用CAD的打印程序不会出现这种问题，只是自己写的程序会）！

自己写的程序
ThisDrawing.ModelSpace.Layout.PlotRotation = ac90degrees
这句难道你们没有发现他只是把图形旋转了90度，但是如果打印的图纸方向是纵向的，那么用ThisDrawing.Plot.DisplayPlotPreview acFullPreview 预览的时候纸是纵向放置的[/COLOR]；而在CAD自己的打印程序中不管打印机的纸张方向是横是纵，只要设置了横向打印则预览时纸的方向[/COLOR]一定为横向的。



每人能搞定吗？
斑竹大人，帮帮忙！