espero que esto te sirva, utilizando el objeto Printer que es lo que voz requiere
Código:
SubEncabezado = "NOMBRE DEL REPORTE"
CentraSubEncabezado = PicEncabezado.TextWidth(SubEncabezado)
Printer.CurrentX = (24.36815 - CentraSubEncabezado) / 2 'Centramos el Encabezado
Printer.CurrentY = 2.6