Access - Formato condicional en reporte

Option Compare Database

Dim nNumLinea As Long

Private Sub Report_Load()

    nNumLinea = 1 ' <-- Aquí la inicializamos

End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

 If nNumLinea = 1 Then

    fap_CantKilos.Format = "$###,###.0" <-- Aquí le aplicó el formato de moneda, solo para el primer registro

Else

    fap_CantKilos.Format = "###,###.0"<-- Esté ya no lo lleva

End If

nNumLinea = nNumLinea + 1

End Sub