Gracias.
Hace rato lo soluciné de la siguiente forma:
Código:
Private Sub btnImprimir_Click()
On Error GoTo manipularErrorImprimir
comDia.CancelError = True
picImprimir.Picture = CaptureClient(Me)
comDia.Orientation = cdlLandscape
comDia.ShowPrinter
Printer.Orientation = comDia.Orientation
Printer.PaintPicture picImprimir.Picture, 0, 0, Printer.ScaleWidth, (Me.ScaleHeight * Printer.ScaleWidth) / Me.ScaleWidth, , , Me.ScaleWidth, Me.ScaleHeight
Printer.EndDoc
salirImprimir:
Exit Sub
manipularErrorImprimir:
If Err.Number = cdlCancel Then Exit Sub
MsgBox Err.Description
Resume salirImprimir
End Sub
No sé si es la más correcta o nó, pero funcionar funciona.
Gracias de todos modos, y por todo lo anterior.
Un Saludo y Gracias!