Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print problem
I don't understand
The code behind the command button is Priser.PrintForm but the print dosn't print the name on the userform only what inside the form I have try whit activewindow.printout but here i get a error Alvin "Terrance Rebello" skrev: Perhaps it is an issue with the Print_Area. Also it might help showing the code behind this command button - Terrance Rebello "Alvin Hansen" wrote: Hi!! I have this in a commandbuttom in a userform Priser.PrintForm Its working its printing but but but it dont print the titel of the userform?? CAn't i do this?? Best regards Alvin |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Print problem
Here is a way to do it using the Windows API:
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 = &H2C 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 ' key down 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 "Alvin Hansen" wrote in message ... I don't understand The code behind the command button is Priser.PrintForm but the print dosn't print the name on the userform only what inside the form I have try whit activewindow.printout but here i get a error Alvin "Terrance Rebello" skrev: Perhaps it is an issue with the Print_Area. Also it might help showing the code behind this command button - Terrance Rebello "Alvin Hansen" wrote: Hi!! I have this in a commandbuttom in a userform Priser.PrintForm Its working its printing but but but it dont print the titel of the userform?? CAn't i do this?? Best regards Alvin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print to Fit Problem | Excel Discussion (Misc queries) | |||
problem to print | New Users to Excel | |||
Print Problem | Excel Discussion (Misc queries) | |||
Print problem.. | Excel Discussion (Misc queries) | |||
Print problem | Excel Programming |