Captura de pantalla QQ de simulación de VB
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 p>
Borrar portapapeles
End Sub
Subcomando privado1_Click()
Me.Refresh
Imagen3. p>