超シンプルなはがき印刷ソフトを作ってみよう　Step 11　シェイプの枠線を消す

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

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

実行結果

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

Topへ