Excelで超シンプルなはがき印刷ソフトを作ってみよう

Step 11 シェイプの枠線を消す

メニューに戻る

スポンサーリンク






シートコード

下記のコードを追加してください

'印刷の開始処理と終了処理
Private Sub ExPrintReady(sw As Boolean)
    Dim t As Object
    
    For Each t In Sheets("裏面印刷").Rectangles
        t.ShapeRange.Line.Visible = Not sw
    Next
End Sub


下記のコードに変更してください

Private Sub ExPrint(mode As Integer)
    Dim lrow As Long
    Dim n As Long
    
    n = 0
    If IsNumeric(Range("D4")) Then
        n = Range("D4")
    End If
    If n = 0 Then
        Beep
        MsgBox "印刷枚数を入力してください。"
        Exit Sub
    End If
    
    '印刷の開始処理
    ExPrintReady True
    
    
    '印刷の終了処理
    ExPrintReady False
End Sub

スポンサーリンク



実行結果

外枠と文字のシェイプの枠線が消えています。

スポンサーリンク






メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved