fingir vista previa

hola, Ivan !

existe alguna manera de 'capturar' una vista previa de impresion sin tener que pasar por la pantalla Vista Previa'?
algo asi como reflejarla en un Spreadsheet (creo que se escribe asi) o algo similar (quizas jugando con el zoom y scrollarea?
me da la 'impresion' de que no
(salvo quizas hacer una epecie de simulacion, aproximando proporciones, distancias, etc ...un poco lioso), pero por si acaso

lo que no comentas -creo- es que harias despues de 'capturar' una 'simulacion' de una vista previa -?-
prueba haciendo una copia-imagen de un rango [previamente puedes modificar la configuracion de pagina, lineas, encabezados, etc.]
y luego... la 'pegas' en algun objeto como imagen ?... o la grabas como archivo de imagen [pasando por un objeto chart] ? o... ???

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

ejemplo para exportar un grupo de celdas a una imagen con formato GIF o JPG?
suponiendo que deseas copiar el rango 'B6:D16' de la hoja 'activa'

en un modulo de codigo 'normal' ==Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:uta y\sub carpeta para\tu archivo.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub