Hay un error en el código antedicho que fijé. Línea a memoria de imagen correcta de la creación a
BITMAP a memoria de imagen = nueva BITMAP (control. Anchura, control. Altura); uso control.width de // y altura
Entonces el código antedicho intentará estirar el listbox a los límites de la impresión… considera si el tamaño después de este cambio es aceptable….
si no intentar dividir la anchura y la altura por mitad para aumentar la escala como:
Trazar una correspondencia de bits la BITMAP a memoria de imagen = nueva (control. Width/2, control. Height/2);