请问如何将固定的A3文档改为A4文档？

hello06 · 发表于 2023-1-30 09:47

文档打开后是灰色的不能更改，A4的打印机打印出来排版是乱的，要么就直接打印不出

zzpsx · 发表于 2023-2-1 15:51

本帖最后由 zzpsx 于 2023-2-1 15:53 编辑

缩小打印到A4版面

hello06 · 发表于 2023-2-6 16:31

zzpsx 发表于 2023-2-1 15:51
缩小打印到A4版面

但是打印出来变横版了

zzpsx · 发表于 2023-2-7 08:47

hello06 发表于 2023-2-6 16:31
但是打印出来变横版了

肯定变模糊了啊，面积小，文字不变，你打印在邮票上，还要模糊。

zldccmx · 发表于 2023-2-8 08:51

本帖最后由 zldccmx 于 2023-2-8 09:00 编辑

zldccmx · 发表于 2023-2-8 08:52

本帖最后由 zldccmx 于 2023-2-8 09:03 编辑

<CODE>
'切换到VBE界面  ALT + F11
'粘贴以下代码 CTRL + V
'按F5运行    F5
'
Sub zldccmx()
Application.ScreenUpdating = False
Application.DisplayAlerts = wdAlertsNone
Selection.WholeStory '全选
Selection.Copy '复制
Documents.Add '新建文档
Selection.Paste '粘贴到新建文档
With ActiveDocument.PageSetup
      .PaperSize = wdPaperA4 'A4纸
      .Orientation = wdOrientPortrait '纵向
      '.Orientation = wdOrientLandscape '横向
      .TextColumns.SetCount NumColumns:=1 '取消分栏：分栏数为1
End With
Fn = ThisDocument.Path & "\" & Left(ThisDocument.Name, _
            InStrRev(ThisDocument.Name, ".")) & "(备份).doc" '命名
ActiveDocument.SaveAs2 Fn, 0 '另存
ThisDocument.Close , False '关闭原始文档
Application.ScreenUpdating = True
End Sub
</CODE>

		自动登录	找回密码
密码			免费注册

[求助] 请问如何将固定的A3文档改为A4文档？