0

背景に 8.5 x 11 の画像がある履歴書を設定しました (必要に応じて透かしを設定できます)。ここで、雇用主がフープを飛び越える必要がないように、背景画像を自動的に印刷しないように設定したいと思います。オンラインで調べたところ、これはおそらく VBA とテンプレートを使用して設定する必要があることに気付きました。これに取り組むことをいとわないインサイトまたは誰でも大歓迎です。

ほとんどの場合、印刷する人が何かを設定することなく、Word文書に画像や透かしを印刷しないようにしたいだけです.(両方である必要はありません)

4

3 に答える 3

1

これには本当にVBAが必要ですか？

Word 2010 で背景色と画像の印刷を無効にするには、次の手順に従います。

[ファイル] | [ファイル] をクリックします。オプション

[Word のオプション] ダイアログ ボックスが表示されます。

[表示] タブで、[背景の色と画像を印刷する] のチェックを外します。

于 2012-05-21T23:57:40.517 に答える
0

理由はわかりませんが、これはうまく機能しているようです。

Public WithEvents appWord As Word.Application

Private Sub Document_Open()
    Set appWord = Application
    ' Not sure if your image is a shape or inlineshape, so...
    If ThisDocument.Shapes.Count Then
        ' First Shape is now visible
        ThisDocument.Shapes(1).Visible = msoTrue
    ElseIf ThisDocument.InlineShapes.Count Then
        ' First inlineshpae has medium brightness
        ThisDocument.InlineShapes.Item(1).PictureFormat.Brightness = 0.5
    End If
End Sub

Private Sub appWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)

 Dim intResponse As Integer

 intResponse = MsgBox("This document contains a background image. " & _
    "Would you like to hide it before printing?", vbYesNo, _
    "Hide Background Image?")
     If intResponse = vbYes Then
         hide_images

     ElseIf intResponse = vbNo Then

        show_images
     End If
End Sub

Sub hide_images()

    Application.DisplayStatusBar = True
    With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayLeftScrollBar = False
        .StyleAreaWidth = CentimetersToPoints(0)
        .DisplayVerticalRuler = True
        .DisplayRightRuler = False
        .DisplayScreenTips = True
        With .View
            .ShowAnimation = True
            .Draft = False
            .WrapToWindow = False
            .ShowPicturePlaceHolders = False
            .ShowFieldCodes = False
            .ShowBookmarks = False
            .FieldShading = wdFieldShadingWhenSelected
            .ShowTabs = False
            .ShowSpaces = False
            .ShowParagraphs = False
            .ShowHyphens = False
            .ShowHiddenText = False
            .ShowAll = True
            .ShowDrawings = True
            .ShowObjectAnchors = False
            .ShowTextBoundaries = False
            .ShowHighlight = True
        End With
    End With
    With Options
        .UpdateFieldsAtPrint = False
        .UpdateLinksAtPrint = False
        .DefaultTray = "Druckereinstellungen verwenden"
        .PrintBackground = True
        .PrintProperties = False
        .PrintFieldCodes = False
        .PrintComments = False
        .PrintHiddenText = False
        .PrintDrawingObjects = False
        .PrintDraft = False
        .PrintReverse = False
        .MapPaperSize = True
    End With
    With ActiveDocument
        .PrintPostScriptOverText = False
        .PrintFormsData = False
    End With
End Sub

Sub show_images()

    With Options
        .UpdateFieldsAtPrint = False
        .UpdateLinksAtPrint = False
        .DefaultTray = "Druckereinstellungen verwenden"
        .PrintBackground = True
        .PrintProperties = False
        .PrintFieldCodes = False
        .PrintComments = False
        .PrintHiddenText = False
        .PrintDrawingObjects = True
        .PrintDraft = False
        .PrintReverse = False
        .MapPaperSize = True
    End With
    With ActiveDocument
        .PrintPostScriptOverText = False
        .PrintFormsData = False
    End With
End Sub

乾杯マーティン

于 2013-01-17T23:19:05.060 に答える
0

ドキュメント ヘッダーのロゴを表示/非表示にするためのリボン拡張機能として、次の (短い) 手順を使用して、ユーザーが印刷/PDF を作成する前に切り替えることができるようにします。

Sub ShowHideLogoInHeader

ローカルエラーハンドラー (重要ではありません)

On Local Error GoTo ErrHandler

薄暗い形状範囲

Dim myStory As ShapeRange
Set myStory = ActiveDocument.StoryRanges(wdFirstPageHeaderStory).ShapeRange
myStory.Visible = Not myStory.Visible

Exit Sub

ErrHandler: デバッグでエラーを報告 (別の関数)

ReportError "modRibbon - ToonOfVerbergLogo"
Err.Clear
End Sub
于 2013-01-29T16:24:26.037 に答える