如何实现领导座位上的牌文字正反方向打印？

wxzd

怎么不能插图

liuhoubin168

只回复可以，行吗？

liuhoubin168

这样，只说两种方法：

周星骋

liuhoubin168 发表于 2015-1-7 10:41
这样，只说两种方法：

不得不赞一个，高手！
这个值得收藏。

yongshun123

回复下载，谢谢。

简单的阳光

学            习                    了

ly3316

谢谢。学习了

tlhar02

谢谢分享，下载试试！！

413191246se

如果楼主及各位会用 VBA 宏代码，可以试用下面我自编的《会议标牌》宏：（这个省事儿！）

1. Sub 会议标牌_单张()
   
2. '本宏未实际打印，页边距可自行调整，字体/字号等亦请自行调整。
   
3.     Dim i As String
   
4.     i = InputBox("请输入文字！", "会议标牌_单张", "办公室")
   
5.     If i = "" Then Exit Sub
   
6.     Documents.Add DocumentType:=wdNewBlankDocument
   
7.     With ActiveDocument.Styles(wdStyleNormal).Font
   
8.         If .NameFarEast = .NameAscii Then
   
9.             .NameAscii = ""
   
10.         End If
    
11.         .NameFarEast = ""
    
12.     End With
    
13.     With ActiveDocument.PageSetup
    
14.         .LineNumbering.Active = False
    
15.         .Orientation = wdOrientLandscape
    
16.         .TopMargin = CentimetersToPoints(3.17)
    
17.         .BottomMargin = CentimetersToPoints(3.17)
    
18.         .LeftMargin = CentimetersToPoints(2.54)
    
19.         .RightMargin = CentimetersToPoints(2.54)
    
20.         .Gutter = CentimetersToPoints(0)
    
21.         .HeaderDistance = CentimetersToPoints(1.5)
    
22.         .FooterDistance = CentimetersToPoints(1.75)
    
23.         .PageWidth = CentimetersToPoints(29.7)
    
24.         .PageHeight = CentimetersToPoints(21)
    
25.         .FirstPageTray = wdPrinterDefaultBin
    
26.         .OtherPagesTray = wdPrinterDefaultBin
    
27.         .SectionStart = wdSectionNewPage
    
28.         .OddAndEvenPagesHeaderFooter = False
    
29.         .DifferentFirstPageHeaderFooter = False
    
30.         .VerticalAlignment = wdAlignVerticalTop
    
31.         .SuppressEndnotes = False
    
32.         .MirrorMargins = False
    
33.         .TwoPagesOnOne = False
    
34.         .BookFoldPrinting = False
    
35.         .BookFoldRevPrinting = False
    
36.         .BookFoldPrintingSheets = 1
    
37.         .GutterPos = wdGutterPosLeft
    
38.         .LayoutMode = wdLayoutModeLineGrid
    
39.     End With
    
40.     ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
    
41.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
    
42.         2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
    
43.     Selection.TypeText Text:=i
    
44.     Selection.MoveRight Unit:=wdCell
    
45.     Selection.TypeText Text:=i
    
46.     Selection.Tables(1).Select
    
47.     Selection.Font.Bold = True
    
48.     Selection.Font.Name = "黑体"
    
49.     Selection.Font.Size = 42
    
50.     Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
51.     Selection.HomeKey Unit:=wdLine
    
52.     Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    
53.     Selection.Orientation = wdTextOrientationDownward
    
54.     Selection.MoveRight Unit:=wdCell
    
55.     Selection.Orientation = wdTextOrientationUpward
    
56.     Selection.Tables(1).Select
    
57.     Selection.Rows.HeightRule = wdRowHeightAtLeast
    
58.     Selection.Rows.Height = CentimetersToPoints(15)
    
59.     Selection.SelectCell
    
60.     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
61.     Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
62.     Selection.Font.Size = 130
    
63.     Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
64.     Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
65.     Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
66.     Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
67.     Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    
68.     Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    
69.     Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
70.     Selection.HomeKey Unit:=wdLine
    
71.     ActiveWindow.View.TableGridlines = True
    
72. End Sub

复制代码

jinghexi

可以，行吗？