如何让WORD文档选择指定打印机呢?
1.打开要打印的WORD文档 。
2.点击菜单栏里的文件,然后点击“打印”。
3.在打印设置窗口里选择打印机的名称。
4.设置好页面的范围。
4.设置打印的份数。
5.设置打印的内容。
6.完成以上设置之后,点击“确定”,就可以完成WORD文档的打印了。
想批量打印Word文件的某一页怎么办?
最笨的方法是在打印窗口的页码范围内自己填写了,如:1,4,7,11用Vba实现如下本例是从第2页开始每隔3页打印,即打印第2、6、10、14……页,楼主可按需修改其中的P值和d值。
Sub 隔页打印()' Dim P As String P = 2 '输入要打印的第1页的页码 d = 3 '输入打印的隔页页数n = P + d + 1 Do While n <= Selection.Information(wdNumberOfPagesInDocument) P = P & "," & n n = n + d + 1 Loop Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=P, PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0End Sub复制代码...
VBA打印设置
VBA 打印设置相关属性及方法打印设置说明,以下均为默认值。
With ActiveSheet.PageSetup .PrintTitleRows = "" '工作表打印标题:顶端标题行(R) .PrintTitleColumns = "" '工作表打印标题:左端标题列(C)End With ActiveSheet.PageSetup.PrintArea = "" '工作表打印区域(A)With ActiveSheet.PageSetup .LeftHeader = "" '自定义页眉:左(L) .CenterHeader = "" '页眉/自定义页眉:中(C) .RightHeader = "" '自定义页眉:右(R) .LeftFooter = "" '自定义页脚:左(L) .CenterFooter = "" '页脚/自定义页脚:中(C) .RightFooter = "" '自定义页脚:右(R) .LeftMargin = Application.InchesToPoints(0.75) '页边距:左(L)_1.9厘米 .RightMargin = Application.InchesToPoints(0.75) '页边距:右(R)_1.9厘米 .TopMargin = Application.InchesToPoints(1) '页边距:上(T)_2.5厘米 .BottomMargin = Application.InchesToPoints(1) '页边距:下(B)_2.5厘米 .HeaderMargin = Application.InchesToPoints(0.5) '页边距:页眉(A)_1.3厘米 .FooterMargin = Application.InchesToPoints(0.5) '页边距:页脚(F)_1.3厘米 .PrintHeadings = False '工作表打印:行号列标(L) .PrintGridlines = False '工作表打印:网格线(G) .PrintComments = xlPrintNoComments '工作表打印批注(M):无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace .PrintQuality = 180 '页面打印质量(Q):180/360点 英寸 .CenterHorizontally = False '页边距居中方式:水平(Z) .CenterVertically = False '页边距居中方式:垂直(V) .Orientation = xlPortrait '页面方向:纵向(T) xlPortrait/ 横向 (L)xlLandscape .Draft = False '工作表打印:按草稿方式(Q) .PaperSize = xlPaperA4 '页面纸张大小(Z):A4 .FirstPageNumber = xlAutomatic '页面起始页码:自动 .Order = xlDownThenOver '工作表打印顺序:先列后行(D)/先行后列(V) xlOverThenDown .BlackAndWhite = False '工作表打印:单色打印(B) .Zoom = 100 '页面缩放比例:100% 若选择页面缩放比例,则下面两项没有。
.Zoom = False '页面缩放比例:未选择 若选择调整页面则此项必为False,且与下面两项一起出现。
.FitToPagesWide = 1 '页面缩放:调整为1页高 .FitToPagesTall = 1 '页面缩放:调整为1页宽 .PrintErrors = xlPrintErrorsDisplayed '工作表打印错误单元格打印为(E):显示值/ xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNAEndWith详情:http://www.cnblogs.com/go-jzg/p/5738169.html 展开
重金,重金悬赏一个关于wordVBA编程问题!!!!!请问选定w
问题: 我想打印在word文档中所有包含了某个人姓名的页 我粗略编了一个宏: Sub Macro1() ' ' Macro1 Macro ' 宏在 2004-10-14 由 bill 录制 Dim i As Integer Selection.Find.ClearFormatting With Selection.Find .Text = "婷 '要查找的姓名 .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute ActiveDocument.PrintOut Range:=wdPrintCurrentPage '若找到姓名,则打印当前页 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="" '下翻一页 Loop End Sub
因为你所选择的打印区域已经超过了一个页面,怎么调整一张页面上
sub FindPrinter( )Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")objRegistry.EnumValues &H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", arrSubKeysFor Each subkey In arrSubKeysobjRegistry.GetStringValue &H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\", subkey, KKPa = subkey & " 在 " & Mid(KK, InStr(KK, ",") + 1, InStr(KK, ":,") - InStr(KK, ","))Debug.Print PaNextApplication.ActivePrinter = PaEnd Sub用VBA来做吧....
转载请注明出处51数据库 » vba word打印选择页面