Hola a todos.
Tengo un form1 que tiene un picture que contiene un MSHFlexgrid.
el mshflexgrid contiene los datos paginados de un recordset
La idea es imprimir el MshFlexGrid por cada paginación del recordset.
Bien; en el MSH muestro la primera página, con setparent traslado el picture que
contiene el MSH a otro form que no tiene bordes para que así en la impresión solo salga el MSH, le mando printForm e imprime la primera página.
Luego con SetParent, regreso el picture a su formulario de origen (Form1) y cargo la siguiente página; vuelvo con Setparent a colocarlo en el form de impresión, y es haí cuando me dice que la impresora no soporta la impresión.
Les dejo el código haber si alguien puede decirme que estoy haciendo mal. Gracias!
Private Sub cmdPrint_Click()
'
Dim ret As Long
Dim lrep As Long
'Imprime página a página
Set fForm = Me
Set Pic = picPrint
For lrep = nPage To 1 Step -1
PageVisible = lrep
Call VistaPrevia
On Local Error Resume Next
'Traslada el control picPrint
ret = SetParent(Pic.hWnd, Ges14F_FormPrint.hWnd)
Ges14F_FormPrint.Imprime 'Imprime
'
Next lrep
'
Set fForm = Nothing
Set Pic = Nothing
picPrint.Top = 0
picPrint.Left = 0
frWeb.Visible = False
'En el form de impresión:
Public Sub Imprime()
'Imprime el pic que le han insertado con setParent
Dim ret As Long
On Local Error Resume Next
Me.Height = Pic.Height + 60
Me.Width = Pic.Width + 60
Pic.Top = 0
Pic.Left = 0
Me.PrintForm
'Regresa el control picture a su formulario de origen
ret = SetParent(Pic.hWnd, fForm.hWnd)
fForm.SetFocus
Unload Me
'
If Err <> 0 Then
MsgBox "(Impimir): " & Err.Description
Err.Clear
End If
End Sub
