请问怎样锁定打印纸张大小

nmb333

怎样才能锁定打印页面设置的纸张大小
即固定打印页面设置纸张为16K纸，其他人不能更改打印纸张的大小。
最好是只能用16K纸打，放其他纸张不能打印。

liuhoubin168

不更改纸张大小可以设置保护，设置窗体等。
只能用16K纸打印，这个还真没办法。。。。

413191246se

用AutoOpen宏将纸张锁定为16K，不知楼主会不会用宏。
Sub AutoOpen()
'此宏仅打印A4纸张
    Dim i As Section, j As Long, k As Long
    For Each i In ActiveDocument.Sections
        With i.PageSetup
            If .Orientation = wdOrientLandscape Then j = 1 Else j = 0
            If .PaperSize <> wdPaperA4 Then
                If k = 1 Then GoTo ctn
                If MsgBox("当前文档非A4纸张，无法打印！是否更改纸张大小为A4？", vbYesNo + vbCritical, "A4纸检查") = vbNo Then Exit Sub
ctn:
                .PaperSize = wdPaperA4: k = 1: If j = 1 Then .Orientation = wdOrientLandscape
            End If
        End With
    Next
End Sub