One way is to take a picture of the userform, put that on a worksheet and
print the picture
This was posted by
"Orlando Magalhães Filho"
In a general module:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Sub Test()
UserForm1.Show
End Sub
In the userform module:
Private Sub CommandButton1_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False,
DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
End Sub
-------------------
So you would have a commandbutton on the userform that would trigger this
code. In the example, commandbutton1
--
Regards,
Tom Ogilvy
"Chico!! " wrote in message
...
I have a userform with many optionbuttons that employees will select.
My problem is when I print the form evreything is there
(text,date,comment) but the otptionbutton selections. I see the
otpionbuttons but the little black dot is missing so it's impossible
for people that use the hard copy to see what are the selections.
How can I make these black dots visible on a print?
---
Message posted from http://www.ExcelForum.com/