none
VBA自动打印问题! RRS feed

  • 问题

  •  

    Private Sub CommandButton11_Click()     ‘按钮事件。


        ActivePage.Layers("第一层").Printable = True    

        ActivePage.Layers("第一层").Visible = True      

     

        Dim a As Integer
        a = TextBox7.Text  


        With ActiveDocument.PrintSettings
            .SelectPrinter "DocuColor 5065 PS "           ‘选择DocuColor 5065 PS打印机
            With .Options
                .BitmapColorMode = prnBitmapCMYK     ’使用CMYK颜色
                .UseColorProfile = True                          ‘使用颜色配置文件
                 ActiveDocument.PrintSettings.Copies = a       ’打印份数
            End With
          
        End With
        ActiveDocument.PrintOut                             '退出打印


        ActivePage.Layers("第一层").Printable = False
        ActivePage.Layers("第一层").Visible = False  
       Me.TextBox7.Text = "" 

    End Sub

     

     

    以上代码是一张图片的自动打印过程。

    请教大家以下问题:

    一、怎么样设置默认或者非默认打印机的纸张(如A4,A3,或者自定义(12英寸 x 18英寸))。

    二、怎么样设置纸张的方向(横向或者纵向)。

    三、怎么样设置打印机的分辨率。

     

    谢谢!!

    2008年10月6日 7:38

答案


  • ActiveDocument.PageSetup.PaperSize = WdPaperSize.wdPaperA4
    ActiveDocument.PageSetup.Orientation = WdOrientation.wdOrientPortrait
    2008年10月6日 7:53
    版主
  • 你可以设置自定义纸张,WdPaperSize 所有枚举值:

    http://msdn.microsoft.com/de-de/library/microsoft.office.interop.word.wdpapersize(VS.80).aspx
    2008年10月7日 0:23
    版主

全部回复


  • ActiveDocument.PageSetup.PaperSize = WdPaperSize.wdPaperA4
    ActiveDocument.PageSetup.Orientation = WdOrientation.wdOrientPortrait
    2008年10月6日 7:53
    版主
  •  ActiveDocument.PrintSettings.PaperSize = prnPaperSizeA3   

     ‘可以这样设定纸张,但是里面没有我需要的尺寸,怎么样设定自定义尺寸的纸张?

     

     

     ActiveDocument.PrintSettings.PaperOrientation = prnPaperLandscape

    ’可以设定纸张的方向。

     

    谢谢!!

     

    2008年10月7日 0:01
  • 你可以设置自定义纸张,WdPaperSize 所有枚举值:

    http://msdn.microsoft.com/de-de/library/microsoft.office.interop.word.wdpapersize(VS.80).aspx
    2008年10月7日 0:23
    版主