⚡
QuickPrint
自動化アクティブシートをデフォルトプリンタで印刷します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： QuickPrint を実行すると、現在のシートが印刷されます
💻 VBAコード
' QuickPrint
' -----------------
' Macro Name: QuickPrint
' Description: アクティブシートをデフォルトプリンタで印刷します
' Parameters: なし
' Returns: なし
' Usage: QuickPrint を実行すると、現在のシートが印刷されます
' -----------------
Sub QuickPrint()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Set ws = ActiveSheet
' 印刷プレビューを表示せずに印刷
ws.PrintOut Preview:=False
MsgBox "印刷を開始しました", vbInformation, "印刷"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub