不能从MS项目设定PageSetup.Orientation = xlLandscape(can&#

在MS Project 2003的使用VBA创建一个Excel工作表和写入数据到它。 从那以后，我想改变我创造了这样的片我写的SetPrintArea和方向

with xlsheet                         '// Defined being an Excel.Worksheet
    For i = 1 To .UsedRange.Columns.Count
        .Columns(i).EntireColumn.AutoFit
    Next i
    txtPrintArea = txtPrintArea & "$" & xlCol.Row  '// I created the range to print before
    With .PageSetup
        .Orientation = xlLandscape
        .PrintArea = xlSheet.UsedRange.Address
    End With
End With

它崩溃的.Orientation声明。 如果我评论说出来崩溃的.PrintArea线。 我的结论是不能成立的任何财产.PageSetup

如何指定了printArea？

Answer 1:

我安装的BullZip PDF打印机和.PageSetup.Orientation工作后。 如此看来PAGESETUP需要安装一台打印机。

Answer 2:

你是做正确的事。

为什么你设置txtPrintArea但随后设置.PrintArea = xlSheet.UsedRange.Address ???

否则，你将需要发布更多的代码作为例子。 我创建了下面的根据你的问题，它的工作对我来说：

Set xlSheet = Sheet1
Set xlCol = Sheet1.Rows(1)
txtPrintArea = "A"
With xlSheet                         '// Defined being an Excel.Worksheet
    xlSheet.UsedRange.Columns.EntireColumn.AutoFit
    txtPrintArea = txtPrintArea & "$" & Trim(Str(xlCol.Row)) + ":b2"   '// I created the range to print before
    With .PageSetup
        .Orientation = xlLandscape
        .PrintArea = txtPrintArea '//xlSheet.UsedRange.Address
    End With
End With

文章来源: can't set PageSetup.Orientation = xlLandscape from MS Project