Susunan kode macro berikut ini berfungsi untuk mencegah Excel agar tidak mencetak barisan sel tertentu di dalam worksheet yang akan di-print.


Contoh worksheet yang ditunjukkan pada gambar di atas berisi barisan sel A1:I20 yang akan di-print kecuali sel A1:C10. Berikut ini kode yang dapat anda tuliskan pada kode 'ThisWorkbook':
Private Sub Workbook_BeforePrint(X As Boolean)
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
X = True
Application.EnableEvents = False
Range("A1:C10").NumberFormat = ";;;"
ActiveSheet.PrintPreview
Range("A1:C10").NumberFormat = "General"
Application.EnableEvents = True
End Sub
Output dari kode ini mengarahkan anda kepada tampilan Print Preview untuk memudahkan anda menyesuaikan pengaturan kertas sebelum worksheet di-print. Namun jika anda ingin langsung print, silakan ganti saja perintah 'PrintPreview' menjadi perintah 'PrintOut'.