[求助]word网格线怎么设置可以将其打印出来？

xzsnoopy

视图里可以设置显示网格线，请问怎么样能将这个网格线打印出来啊，大侠指点啊～··········

konggs

一般不行的。只要做好后，分工在页眉分一些类似的线条。

halfzx

抓成图片打印吧

雨雪霏霏

呵呵，楼主提出这样的问题，确实很富“创意”与“诗意”！——是呀，假如能够直接打印出网格线，那可就是非常直观的印刷品“笔记本”了——假若还能够“自定义设置”一下网格线的颜色、粗细，则更“贴心”！呵呵，小弟也真想微软能够照顾到大家对于打印“网格线”的特殊需要！

但我们目前还是可以“体谅”微软的——Word里的许多辅助功能标记，只为着方便编辑，而并没有设计成要打印出来的，比如打印预览里的四个角的页边距标记，甚至，还有空格、段落标记、手动换行符……

对这个问题，我们可以变通一下，用另外的方法做出“网络线”，甚至，其他方法做出的“网格线”其实更富“魅力”。下面这个链接供楼主参考：

http://www.computda.com/article/2006-4-30/5010-1.htm

办公之星

因为网格线与打印无关，所以大家对这个问题的研究都比较有限。

目前的方法都是变通的，相对来说，稿纸向导比较省事。

如果问题不好解决，可以传上来，大家一起练练手。

konggs

用宏做了一个，不太好。如果没有好的办法。将就着用吧。仅当大家一笑，吾练手而己。

欢迎大家批评指正。

  Gf6Ek7Jx.rar (31.34 KB, 下载次数: 77)

2006-6-28 17:59 上传

点击文件名下载附件

[此贴子已经被作者于2006-6-28 17:59:44编辑过]

konggs

应老大的指点改正并贴代码如下：

Option Explicit

Private Sub CommandButton1_Click()
Dim asection As Section
Dim aleft As Long, atop As Long
Dim awidth As Long, ahight As Long
Dim i As Long, ashape As Shape
Dim acolor As String

Application.ScreenUpdating = False
On Error GoTo handler:

'取颜色
acolor = ComboBox1.Text
Select Case acolor
    Case "兰色"
        acolor = wdColorBlue
    Case "灰色"
        acolor = RGB(11, 11, 11)
    Case "黑色"
        acolor = wdColorBlack
    Case "红色"
        acolor = wdColorRed
    Case "绿色"
        acolor = wdColorGreen
    Case Else
        MsgBox "重新填写直线颜色"
        ComboBox1.Text = ""
        ComboBox1.SetFocus
End Select

'进入页眉
For Each asection In ActiveDocument.Sections '在每节中循环
    With asection.Headers(wdHeaderFooterPrimary) '在页眉页脚中循环
         aleft = asection.PageSetup.LeftMargin
         atop = asection.PageSetup.TopMargin
         awidth = asection.PageSetup.PageWidth
         ahight = asection.PageSetup.PageHeight
         i = 1
Dim a As Shape

         Do While atop + (TextBox1.Text) * i < ahight - atop
        
           Set a = .Shapes.AddLine(aleft, atop + (TextBox1.Text) * i, awidth - aleft, atop + (TextBox1.Text) * i)
               a.ZOrder msoSendToBack '放到最后
            i = i + 1
         Loop
       
         For Each ashape In .Shapes
            If ashape.Type = msoLine Then
               ashape.Line.ForeColor.RGB = acolor
            End If
         Next
    End With
Next
   
 Application.ScreenRefresh
 Application.ScreenUpdating = True
 
 复位窗体
Exit Sub

handler:
    MsgBox "错误"
    Unload Me
Application.ScreenUpdating = True

End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub CommandButton3_Click()

Dim asection As Section
Dim ashape As Shape

Application.ScreenUpdating = False
On Error GoTo handler:

For Each asection In ActiveDocument.Sections '在每节中循环
    With asection.Headers(wdHeaderFooterPrimary) '在页眉页脚中循环
        For Each ashape In .Shapes
            If ashape.Type = msoLine Then
               ashape.Delete
            End If
         Next
    End With
Next
  
Application.ScreenRefresh
Application.ScreenUpdating = True

复位窗体

Exit Sub

handler:
    MsgBox "错误"
    Unload Me
Application.ScreenUpdating = True
End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Initialize()
Dim a
Dim atop
Dim aheigh
Dim abottom
'复合框中设置
    复位窗体
    With ActiveDocument.PageSetup
         a = .LinesPage
         atop = .TopMargin
         abottom = .BottomMargin
         aheigh = .PageHeight
         a = Format((aheigh - atop - abottom) / a, "00.00")
    End With
'默认值的设置
    TextBox1.Text = a
End Sub
Sub 复位窗体()
    ComboBox1.Clear
    ComboBox1.AddItem "黑色"
    ComboBox1.AddItem "红色"
    ComboBox1.AddItem "兰色"
    ComboBox1.AddItem "绿色"
    ComboBox1.AddItem "灰色"
    ComboBox1.Text = "黑色"
End Sub

skyhawk0012

这么长,不太能看懂,学习

雨雪霏霏

QUOTE:

以下是引用konggs在2006-6-28 18:44:24的发言：

应老大的指点改正并贴代码如下：

…………

孔兄目前的状态很好，宝锋将出，小弟默默祝福！

老大是好老大，总能在“关口”上指点一下，小弟十分歆羡孔兄现在有这等福气！

同时，小弟亦为老大庆贺——Word版有热心勤修如孔兄者，老大在孔兄《我的感慨之2006年的Word版块》帖中所言的种种情怀，皆有所托矣！

Word版块有这样两位好版主，小弟之幸！版友之幸！（如意版主最近出书正忙？小弟注册以来未见过她的芳踪，心下甚念！）

[此贴子已经被作者于2006-6-30 20:50:12编辑过]

jb_008