Se ho capito bene devi fare codi
Private Sub cmdLoad_Click()
'Open the open dialog
With dlg
.DialogTitle = "Load Image"
.Filter = "Bitmap (*.bmp)|*.bmp|All Files (*.*)|*.*" 'Allow the opening of Bitmap files, or all files
.ShowOpen
End With
pic.Picture = LoadPicture(dlg.FileName) 'Load the picture using the info we recieved from dlg
End Sub
Private Sub cmdPrint_Click()
'Print the image
Printer.PaintPicture pic.Image, 10, 10
Printer.EndDoc 'You need this to start printing before the program ends
End Sub