Captura de pantalla QQ de simulación de VB

El siguiente código es de CBM666, un genio de la programación que admiro mucho. Deberías poder ver el significado. Debes modificarlo tú mismo. Lo ejecuté con éxito. No interceptará otros formularios. formulario actual.

Recordatorio: cuando haga clic en el botón Imprimir siguiente, no aparecerá ningún mensaje y el contenido de la ventana se imprimirá directamente. ¡No es necesario que cancele el botón!

'Agregar Imagen1 Imagen2 crea una imagen cada una, y la ventana también puede agregar imágenes, solo para pruebas.

, Texto1 ingresa contenido aleatoriamente (solo para probar)

'Agregar imagen3 para guardar la imagen

'Comando1 toma la imagen y la guarda Comando2 la imprime

p>

'Este código es para guardar todos los controles en el formulario con el formulario e imprimirlo en la Imagen 3.

Opción explícita

Declaración privada Sub keybd_event Lib "user32 " (ByVal bVk como byte, ByVal bScan como byte, ByVal dwFlags como largo, ByVal dwExtraInfo como largo)

Const theScreen = 0 'Pantalla completa

Const theForm = 1 'Pantalla de actividad actual

Private Sub Form_Load()

Command1.Caption = "Tomar formulario"

Command2.Caption = "Imprimir"

Imagen3 .Mover Pantalla.Ancho

Imagen3.AutoRedraw = True

Imagen3.BorderStyle = 0

Me.AutoRedraw = False

Borrar portapapeles

End Sub

Subcomando privado1_Click()

Me.Refresh

Imagen3.