Hola, espero que esto te sirva y sobre todo que te lo explique bien. Lo he probado y me funciono.

Lo primero, tienes que editar el ABREPORT.CLW para esto va a SOURCE, OPEN, esta en C:\CLARION#\LIBSCR\ABREPORT.CLW 
# = Version de Clarion que tienes.

- Una ves lo tengas abierto busca "PrintPreviewClass.Display" esta es la ventana del print preview.
- Antes del CODE inserta lo siguiente:

PAGENUMOFWRK       STRING(19)
PREV:MetaFileName     STRING(100),Static
PREV:Metafile               FILE,DRIVER('dos'),NAME(PREV:MetaFileName)
Record                              RECORD,PRE()
MetaLine                                 STRING(256)
                                        END
                                    END


- En el CODE, haces una llamada a una rutina como sigue

IF RECORDS(SELF.ImageQueue)
    Do Numero ! <= Esta linea la insertas para llamar a tu rutina
    SELF.InitZoom=InitZoom


- Escribe debajo la rutina que sigue:

NUMERO    routine
ImageCount# = RECORDS(SELF.ImageQueue)

LOOP TKCounter1# = 1 to ImageCount#
    GET(SELF.ImageQueue, TKCounter1#)
    PREV:MetaFileName = SELF.ImageQueue
    OPEN(PREV:MetaFile)
    IF ERRORCODE(); CYCLE.
    TKMetaPointer# = 0
    LOOP
      SET(PREV:MetaFile, TKMetaPointer#)
      NEXT(PREV:MetaFile)
      TKCounter2# = instring('Page xxxxx of xxxxx', MetaLine, 1, 1)
      IF TKCounter2# > 0
        PAGENUMOFWRK = 'Pg. ' & FORMAT(TKCounter1#,@n_5) & ' de ' & FORMAT(ImageCount#,@n_5)
        PAGENUMOFWRK = CENTER(CLIP(PAGENUMOFWRK),19)
        MetaLine = SUB(MetaLine,1,TKCounter2#-1)|
                     & PAGENUMOFWRK |
                     & SUB(MetaLine,TKCounter2#+19,LEN(MetaLine))
        PUT(PREV:MetaFile)
        BREAK
      END
      IF ERRORCODE() OR EOF(PREV:MetaFile); BREAK.
      TKMetaPointer# = POINTER(PREV:MetaFile) + 245
    END
    CLOSE(PREV:MetaFile)
END


- Para terminar, en aquellos REPORTS que desees usar la secuencia Pag N de N, donde quieres que te aparezca el numero, pones un string con lo siguiente:
'Page xxxxx of xxxxx' observa que la rutina busca esta cadena y la sustituye, por lo que debes asegurarte de escribir el string 'Page xxxxx of xxxxx' exactamente igual o no funcionara.

Ante la duda o cualquier problema.... me avisas.... vale?
Esto es valido para aquellos informes donde solo hay una pagina de cada numero, pero no vale para cuando tienes que reiniciar la numeracion, como en una facturacion.
Que empiezas por la pagina 1 de N1 pero cuando acabas de imprimir esta factura y pasas a la siguiente tienes que volver a empezar por la pagina 1 de N2 y asi sucesivamente. Para esto tambien tengo solucin. Suerte, Ricardo.

