能不能让自动生成的word文档页边距按内容装在一页上面

lpj11834abc

请那位老师帮我一下,将文件中的VB代码加上页边距设定.让它能实现自动生成的Word文档在一页上面(也就是设定固定的边距上下0左0.8右0.6).非常感谢!!! 要不然每次还要去调整生成好的文档太麻烦了单位上的人差不多上千了.

QQ214189912

1. Private Sub CommandButton2_Click() '全部并且形成WORD文档
   
2. Set Wb = ThisWorkbook
   
3. Set WDApp = CreateObject("Word.Application")    ' 启用WORD
   
4. WDApp.Visible = True
   
5. WDApp.Documents.Add , DocumentType:=wdNewBlankDocument
   
6. Set WordDoc = WDApp.ActiveDocument
   
7. For i = 4 To r
   
8.    Call A1(i) '用数据工作表第i行内容填写表格
   
9.    Sheets(Temp_str).Select '将临时工作表激活
   
10.    Wb.ActiveSheet.UsedRange.Interior.ColorIndex = xlNone '删除颜色
    
11.    Wb.ActiveSheet.UsedRange.Copy '拷贝表格
    
12.     'Wb.ActiveSheet.Pictures.Paste.Copy '粘贴图片
    
13.    With WordDoc.Select
    
14.         'WDApp.Selection.PasteAndFormat (wdPasteDefault) '只粘贴文本？？不行
    
15.          WDApp.Selection.Paste  '粘贴表格
    
16.     With WordDoc.PageSetup
    
17.         .LineNumbering.Active = False
    
18.         .Orientation = wdOrientPortrait
    
19.         .TopMargin = WDApp.CentimetersToPoints(0.42)
    
20.         .BottomMargin = WDApp.CentimetersToPoints(0.8)
    
21.         .LeftMargin = WDApp.CentimetersToPoints(0.42)
    
22.         .RightMargin = WDApp.CentimetersToPoints(0.7)
    
23.     End With
    
24.          WordDoc.SaveAs Filename:=ThisWorkbook.Path & "" & Temp_str '保存文档
    
25.    End With
    
26.    Application.DisplayAlerts = False
    
27.    Sheets(Temp_str).Delete '删除临时工作表
    
28.    Application.DisplayAlerts = True
    
29. Next
    
30. MsgBox "如果桌面上还有WORD窗口，请保存后关闭。"
    
31. Set WDApp = Nothing
    
32. Set WordDoc = Nothing
    
33. Set Wb = Nothing
    
34. End Sub

复制代码

lpj11834abc

谢谢老师加的代码, 我添加上去测试了一下  非常好 这样就能只导入数居生成直接就打印了  非常感谢老师的帮助