Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
optionbutton - three options | Excel Discussion (Misc queries) | |||
Optionbutton troubles | Excel Worksheet Functions | |||
OptionButton. Reset to 0 | New Users to Excel | |||
How Do I Tab From An OptionButton To A TextBox | Excel Discussion (Misc queries) | |||
getting focus on an optionbutton | Excel Programming |