指定行数毎に空白行を挿入する

MS Access Tips/Sample and VBA and Blog customize etc... よくある要望ですね。某知恵袋で下記のようなコードをみましたが、実はバグを含んでいます。 Option Compare Database Option Explicit Dim intCount As Integer Private Sub Report_Open(Cancel As Integer) intCount = 1 End Sub Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) If intCount Mod 4 = 0 Then Me.NextRecord = False Me.PrintSection = False Me.MoveLayout = True End If intCount