ActiveLayout.StyleSheet
ThisDrawing.ActiveLayout.StyleSheet = "monochrome.ctb"为什么出错?
Public Sub printdoc()
Dim point1(100) As Variant
Dim point2 As Variant, point3 As Variant, point4(0 To 1) As Variant
Dim keywordList As String
On Error Resume Next
With ThisDrawing.ActiveLayout
.StyleSheet = "monochrome.ctb"
.CenterPlot = True
.PlotRotation = ac90degrees
.PaperUnits = acMillimeters
.CanonicalMediaName = "A4"
.ConfigName = "HP LaserJet 5100 Series"
End With
point2 = ThisDrawing.Utility.GetPoint(, vbLf & "请点击打印区域的左下角:")
i = 0
Do While iInt(point2(1))) Then
i = i + 1
point1(i) = point2
End If
Loop
Number = ThisDrawing.Utility.GetInteger("Enter an number of the pages: ")
point2 = point1(0)
point3 = point1(1)
ReDim Preserve point2(0 To 1)
ReDim Preserve point3(0 To 1)
For j = 0 To Number - 1
point2(0) = point2(0) + (point3(0) - point2(0)) * j
point3(0) = point3(0) + (point3(0) - point2(0)) * j
ThisDrawing.ActiveLayout.CenterPlot = True
ThisDrawing.ActiveLayout.SetWindowToPlot point2, point3
ThisDrawing.Plot.NumberOfCopies = 1
ThisDrawing.ActiveLayout.PlotType = acWindow
ThisDrawing.Plot.DisplayPlotPreview acFullPreview
Next j
End Sub
为什么不能居中打印,还要设什么?
问题解决了
页:
[1]