Vista Previa del Metodo Print

[SalomonSab]

Gracias David el Grande, este es el codigo que me genera la vista previa pero no me muestra nada que estoy haciendo mal.

Código:

Private Sub CmdImprimirPeriodos_Click()
Dim Fila As Integer, ContarFila As Integer, nIncrem As Single
Dim Ppagina As Integer, Pagina As Integer, Filas As Integer

    With FrmVistaPreliminar
        .picPreview.ScaleMode = vbCentimeters
        HorizontalMargen = (21.59 - .picPreview.ScaleWidth) / 2 '+ 0.1
        VerticalMargen = (27.94 - .picPreview.ScaleHeight) / 2 '+ 0.1 + 4.3
         nIncrem = 0.6
        
        Pagina = 1
    'Imprimimos la Grilla
     '---------------------------------------------------------------------------------------
    'imprimimos los datos de la grilla
    
    'Cargamos nuevas fuentes y tamaños para la grilla
    .picPreview.Font = "verdana"
    .picPreview.FontSize = 8
    .picPreview.ForeColor = vbBlue
    .picPreview.FontBold = False
        
    ContarFila = 1
        
    For Fila = 1 To (Me.GrillaPeriodos.Rows - 1)

        'Columna 0 Meses
        
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = HorizontalMargen + ((3.5 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 0))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 0)
        

        'Columna 1 Numero de Periodo
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = 3.5 + HorizontalMargen + ((2 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 1))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 1)

        'Columna 2 Dias a Pagar
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = 5.5 + HorizontalMargen + ((2 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 2))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 2)

        'Columna 3 Fecha en que inicia el Periodo
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = 7.5 + HorizontalMargen + ((3.5 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 3))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 3)

        'Columna 4 Fecha en que Termina el Periodo
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = 11 + HorizontalMargen + ((3.5 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 4))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 4)

        'Columna 5 Partes de un Mes
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = 14.5 + HorizontalMargen + ((2 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 5))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 5)

        'Columna 6 Status Activo o Inactivo
        .picPreview.CurrentY = VerticalMargen + (ContarFila - 1) * nIncrem
        .picPreview.CurrentX = 16.5 + HorizontalMargen + ((3 - .picPreview.TextWidth(Me.GrillaPeriodos.TextMatrix(Fila, 6))) / 2)
        .picPreview.Print Me.GrillaPeriodos.TextMatrix(Fila, 6)

        'Agregamos numero de paginas
        .picPreview.CurrentY = 27
        .picPreview.CurrentX = HorizontalMargen + ((21.59 - .picPreview.TextWidth("Pág " & Pagina & " de " & Ppagina)) / 2)
        .picPreview.Print "Pág " & Pagina & " de " & Ppagina
        ContarFila = ContarFila + 1
        
        
    Next Fila
    
    'Final de la impresión
    
    'Printer.EndDoc
    .Show vbModal
        
    End With
End Sub