vb6word所见所得可修改打印

VB按钮怎么实现打印功能,打印word文档

在Word2007中，用户可以通过设置打印选项使打印设置更适合实际应用，且所做的设置适用于所有Word文档。在Word2007中设置Word文档打印选项的步骤如下所述：

步骤/方法

第1步，打开Word2007文档窗口，依次单击Office按钮→“Word选项”按钮。

第2步，在打开的“Word选项”对话框中，切换到“显示”选项卡。在“打印选项”区域列出了可选的打印选项，选中每一项的作用介绍如下：

(1)选中“打印在Word中创建的图形”选项，可以打印使用Word绘图工具创建的图形；

(2)选中“打印背景色和图像”选项，可以打印为Word文档设置的背景颜色和在Word文档中插入的图片；

(3)选中“打印文档属性”选项，可以打印Word文档内容和文档属性内容（例如文档创建日期、最后修改日期等内容）；

(4)选中“打印隐藏文字”选项，可以打印Word文档中设置为隐藏属性的文字；

(5)选中“打印前更新域”选项，在打印Word文档以前首先更新Word文档中的域；

(6)选中“打印前更新链接数据”选项，在打印Word文档以前首先更新Word文档中的链接，

第3步，在“Word选项”对话框中切换到“高级”选项卡，在“打印”区域可以进一步设置打印选项，选中每一项的作用介绍如下：

(1)选中“使用草稿品质”选项，能够以较低的分辨率打印Word文档，从而实现降低耗材费用、提高打印速度的目的；

(2)选中“后台打印”选项，可以在打印Word文档的同时继续编辑该文档，否则只能在完成打印任务后才能编辑；

(3)选中“逆序打印页面”选项，可以从页面底部开始打印文档，直至页面顶部；

(4)选中“打印XML标记”选项，可以在打印XML文档时打印XML标记；

(5)选中“打印域代码而非域值”选项，可以在打印含有域的Word文档时打印域代码，而不打印域值；

(6)选中“打印在双面打印纸张的正面”选项，当使用支持双面打印的打印机时，在纸张正面打印当前Word文档；

(7)选中“在纸张背面打印以进行双面打印”选项，当使用支持双面打印的打印机时，在纸张背面打印当前Word文档；

(8)选中“缩放内容以适应A4或8.5”X11”纸张大小”选项，当使用的打印机不支持Word页面设置中指定的纸张类型时，自动使用A4或8.5”X11”尺寸的纸张；

(9)“默认纸盒”列表中可以选中使用的纸盒，该选项只有在打印机拥有多个纸盒的情况下才有意义。

Word编辑文档时,所见即所得的视图是---------------

Word编辑文档时，所见即所得的视图是“页面视图”。

验证方法：

1、首先点击Word文档工具栏中的“视图”选项，点击其中的“页面视图”。

2、即可在当前页面中进行文字的编辑、图表制作等一系列操作，操作的内容与最终的显示结果是相符的。

3、如果点击“阅读视图”那么会出现下图的样式，所有的工具栏都会被隐藏，也不会显示页边距。

4、如果点击“web版式视图”，那么页面无法直接显示页边距。

5、如果点击“大纲视图”选项，那么页面会变成分级显示的样式，同样无法正常编辑文字及其他内容。

VB中用什么代码打印文件啊,语句怎么写啊,

VB中的几种打印方法 1. 采用Visual Basic 提供的简单打印函数PrintForm 方法。

应用程序窗体的PrintForm 方法时，Visual Basic 把窗体的位图送到当前打印机。该方法的优点在于它几乎不需要任何编程，但也有很大缺陷。

最为突出的是当低分辨率图形在高分辨率打印机上打印时，其结果令人无法满意，会产生锯齿。下面代码将在打印机上打印窗体。

Private Sub Command1_Click（) ' 用PrintForm 打印 Me.PrintForm ' 打印窗体的可见区域 End Sub 2. 用Printer 对象进行高分辨率输出。但要想产生复杂的打印输出，编程较为烦琐。

Printer 对象代表系统缺省的打印机，Printer 对象支持许多由窗体和图形框所支持的属性和方法，三种对象都有画线和画方框。应用程序可用以下代码在Printer 对象上画出一平方英寸的方框。

它离左上角二英寸。注意：打印机以twips 来测量距离。

每英寸有1440 个twips。 Printer.Line(2 *1440,2 *1440) -Step(1440,1440), ,B 打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth 方法。

使用这些方法，应用程序可以为打印机生成高分辨率输出。打印文本直接用Print 方法，见下列代码： Printer.Print "Hello,China ComputerWorld！" ' 打印字符串 Printer 对象还有一些窗体和图形框都没有方法： NewPage 告诉打印机，程序对当前输出页的发送已经结束，Printer 对象应开始新的一页。

EndDoc 告诉VB，程序创建文档结束，VB 应将它发送到物理打印机上打印。 KillDoc 取消当前打印作业。

应用程序应该终止由EndDoc 和KillDoc 所设定的每个打印作业。 Zoom 属性用于定义打印输出的缩放因子。

Copies 属性用于定义打印的副本数目。 3. 采用直接将数据传送打印机的方法进行打印输出。

有两种方法将数据送往打印机。第一种是用Print #方法，就像将数据写入一个文件一样。

另一种方法写端口，但不是送文本，而是送特定的PCL 语言，PCL 表示打印控制语言，它是一种特殊语言，用转义代码来控制打印机的具体动作。因为此方法太烦琐，本文不做太多介绍。

4. 如果你在编程时用到了RichTextBox 控制，那么你可以使用该控件的SelPrint 方法来打印，使用非常简单。下面一段代码即用RichTextBox 控件的SelPrint 方法来完成打印。

Private Sub Command3_Click() 'SelPrint 方法 CommonDialog1.Flags=cdlPDReturnDC +cdlPDNoPageNums If RTF1.SelLength = 0 Then 'RTF1 为窗体的RichTextBox 控制 CommonDialog1.Flags = CommonDialog1.Flags +cdlPDAllPages Else CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection End If CommonDialog1.CancelError = True On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = cdlCancel Then Exit Sub If Err.Number <> 0 Then Beep MsgBox "Error printing file." &vbCrLf +Err.Description, vbOKOnly +vbExclamation, “Printing Error!" Exit Sub End If Printer.Print "" RTF1.SelPrint CommonDialog1.hDC ' 打印RTF1 控件的可见区域 End Sub 上面代码先进行打进设置，再进行打印。如果不需要设置，采用下面代码更为简单： RTF1.SelPrint Printer.hDC ' 打印RTF1 控件的可见区域 5. 可以在VB 中调用Word 97 提供的OLE 自动化服务，利用Word 97 强大的打印功能来完成VB 打印，笔者认为这是最令人满意的方法。

下面代码说明VB 如何与Word 集成。Private Sub Command4_Click（) ' 调用Word 打印 Dim objWord As Object Const CLASSOBJECT = "Word.Application" On Error GoTo objError Set objWord = CreateObject(CLASSOBJECT) objWord.Visible = True objWord.Documents.Add With objWord.ActiveDocument.Paragraphs.Last.Range.Bold = False.ActiveDocument.Paragraphs.Last.Range.Font.Size =20.ActiveDocument.Paragraphs.Last.Range.Font.Name ="黑体".ActiveDocument.Paragraphs.Last.Range.Font.ColorIndex==4.ActiveDocument.Paragraphs.Last.Range.Text ="我是计算机世界读者！" End With Clipboard.Clear Clipboard.SetText "通过剪切板向WORD 传送数据！" objWord.Selection.Paste objWord.PrintPreview = True ' 预览方式 'objWord.PrintOut' 执行打印 'objWord.Quit' 退出Word Exit Sub objError:If Err <> 429 Then MsgBox Str $(Err) &Error $ Set objWord = Nothing ' 不能创建Word 对象则退出 Exit Sub Else Resume Next End If End Sub 6. 用VC 编制DLL 模块完成打印。

在VB 中调用该模块，用混合编程方法进行打印输出。因涉及VC 编程比较烦琐，这里不再讨论。

Word文件可以修改内容,但不能打印,怎么设置

看您这提问，像是有个文档可以让别人修改，但是不想让他打印。如果是这个意思的话，可以如下操作（word2003版本）：

1.打开该文档，假设该文档名为“禁止打印.doc”

2.快捷键Alt+F8（或者工具——宏——宏），打开宏，按照下图，在宏名里输入“FilePrint”，宏的位置里选择“禁止打印.doc”

然后点击“创建”

3.在新的界面中，如下图，选中那一行代码

4.输入下列新的代码（可以从冒号后边开始复制粘贴进去）：MsgBox "您没有打印文档的权限"， vbCritical

就用这段代码替换掉了原来的代码。然后按下快捷键Alt+Q，关闭当前界面，回到原文档。

这个时候，你再去尝试打印文档，就可以看到如下提示框了

提示的这一句话可以根据自己的需要，自行在上述代码里修改。

转载请注明出处51数据库 » vb6word所见所得可修改打印