La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  253 - IMPRIMIR FORMULARIOS EN VB 4.0
Autor:  Jorge
Hasta el momento, no he podido crear una procedimiento que me permita imprimir, el contenido de un formulario completo, y que se pueda adaptar al tamaño de la hoja, ejemplo: Imprimir en media hoja tamaño carta un formulario y despues imprimir en la otra mitad otro formulario
  Respuesta:  Moises Trejo Hernández
El formulario se puede imprimir en tamaño carta u oficio, solamente cambiando la propiedad del formulario en

BorderStyle=0, si deseas ahora modificar el tamaño del formulario solo modificalo en:

Height=12000, el formulario la aceptara y podras modificarla incluso en tiempo de ejecución.
  Respuesta:  Moises Trejo Hernández
El formulario se puede imprimir en tamaño carta u oficio, solamente cambiando la propiedad del formulario en

BorderStyle=0, si deseas ahora modificar el tamaño del formulario solo modificalo en:

Height=12000, el formulario la aceptara y podras modificarla incluso en tiempo de ejecución. y podras agrandar o reducir el formulario cuando quieras.

Para imprimir el formualrio es el proceso siguiente:

Form1.PrintForm 'imprime el formulario no importa el tamaño.
printer.EndDoc 'Para finalizar la impresión y mandar a imprimir solo una hoja.

espero te salga todo bien

saludos
  Respuesta:  José Manuel Domínguez
Voy a comentarte unos métodos que no contestan directamente a tu pregunta, pero que tal vez puedan ayudarte en tu labor:
- El método más rápido para imprimir un formulario (si este se llama por ejemplo "Imprimir"):
Sub BotonImprimir_Click( )
Imprimir.PrintForm
End Sub
- Otra forma también muy fácil, es imprimir un informe ( o los datos de un formulario, en el informe) mediante un control Crystal Report, muy configurable y de fácil manejo.

- La tercera forma, la más dificil, pero la que más puede servirte: utilizar el objeto PRINTER. Visual Basic, incorpora una extensa ayuda sobre este objeto, pero si tienes problemas, o la pequeña ayuda que te envío no te da resultado, mandanos de nuevo una pregunta e intentaré resolverla de forma más concienzuda. Adiós y suerte.