optionbutton in userform
 

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/