Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print form
I made userform with an image & 'Print' button for printing the form.
The form gets printed with margin of about 8mm from left & about 5 mm from top. I tried with shifting the image on the form by about the margin I intend to have, the result is that the form gets printed at the desired margins on the print but then the image position seems not shifted as if. The image gets cut/hidden by the same margings. Say, I shifted the image on the form by about 25mm from left & 25mm from top. The same portion of the image (25mm on the left & 25mm on the top) is hidden in the print. How to solve this problem? --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print form
If change to landscape doesn't help (on alternative), then, since printform
doesn't have any arguments, try adjusting this code to fix your problem. This was posted by "Orlando Magalhães Filho" A while back and seems to work: 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 -- Regards, Tom Ogilvy "Bhuktar S " wrote in message ... I made userform with an image & 'Print' button for printing the form. The form gets printed with margin of about 8mm from left & about 5 mm from top. I tried with shifting the image on the form by about the margin I intend to have, the result is that the form gets printed at the desired margins on the print but then the image position seems not shifted as if. The image gets cut/hidden by the same margings. Say, I shifted the image on the form by about 25mm from left & 25mm from top. The same portion of the image (25mm on the left & 25mm on the top) is hidden in the print. How to solve this problem? --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print form
Here is a version that will capture just the userform: (the previous
captured the whole screen). Modification of code originally posted by "Orlando Magalhães Filho" Modified to capture just the userform (not the whole window). 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 = 44 Public Const VK_LMENU = 164 Public Const KEYEVENTF_KEYUP = 2 Public Const KEYEVENTF_EXTENDEDKEY = 1 Sub Test() UserForm1.Show End Sub In the userform module: Private Sub CommandButton1_Click() ' keybd_event VK_SNAPSHOT, 0, 0, 0 DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 DoEvents 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 -- Regards, Tom Ogilvy "Tom Ogilvy" wrote in message ... If change to landscape doesn't help (on alternative), then, since printform doesn't have any arguments, try adjusting this code to fix your problem. This was posted by "Orlando Magalhães Filho" A while back and seems to work: 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 -- Regards, Tom Ogilvy "Bhuktar S " wrote in message ... I made userform with an image & 'Print' button for printing the form. The form gets printed with margin of about 8mm from left & about 5 mm from top. I tried with shifting the image on the form by about the margin I intend to have, the result is that the form gets printed at the desired margins on the print but then the image position seems not shifted as if. The image gets cut/hidden by the same margings. Say, I shifted the image on the form by about 25mm from left & 25mm from top. The same portion of the image (25mm on the left & 25mm on the top) is hidden in the print. How to solve this problem? --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print form on screen? Help!! | Excel Discussion (Misc queries) | |||
Form print | Excel Discussion (Misc queries) | |||
Print a form | Excel Discussion (Misc queries) | |||
print a form | Excel Programming | |||
Print a Form | Excel Programming |