Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating an event procedure question
I am using the example on Chip Pearson's web page http://www.cpearson.com/excel/vbe.htm for creating an even procedure in another workbook for formatting printed output from that workbook. I have modified his code as follows: Code: -------------------- Sub CopytoThisWorkbook() Dim StartLine As Long With ActiveWorkbook.VBProject.VBComponents("ThisWorkboo k").CodeModule StartLine = .CreateEventProc("BeforePrint", "Workbook") + 1 .InsertLines StartLine, _ " dim NumRows as integer" & vbCr & _ " NumRows = Activesheet.usedrange.rows.count" & vbCr & _ " With Activesheet.pagesetup" & vbCr & _ " .PrintTitleRows = ""$2:$3""" & vbCr & _ " .PrintArea = ""$A$4:$K$"" & NumRows" & vbCr & _ " .PrintHeadings = False" & vbCr & _ " .PrintGridlines = False" & vbCr & _ " .PrintComments = xlPrintNoComments" & vbCr & _ " End With" End With End Sub -------------------- It works as expected and creates the Workbook_BeforePrint procedure. However whenever the code runs it opens a VBA window and shows the newly created code. No errors, just gives focus to the VBA window. This isn't a problem for me while I'm programming/debugging, but the end user shouldn't see this. Any ideas why this is happening and how to keep it from happening? Thanks for any help/suggestions. -- bhofsetz ------------------------------------------------------------------------ bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807 View this thread: http://www.excelforum.com/showthread...hreadid=377417 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating an event procedure question
Hi Bhofsetz,
Try inserting: Application.VBE.MainWindow.Visible = False before End Sub. --- Regards, Norman "bhofsetz" wrote in message ... I am using the example on Chip Pearson's web page http://www.cpearson.com/excel/vbe.htm for creating an even procedure in another workbook for formatting printed output from that workbook. I have modified his code as follows: Code: -------------------- Sub CopytoThisWorkbook() Dim StartLine As Long With ActiveWorkbook.VBProject.VBComponents("ThisWorkboo k").CodeModule StartLine = .CreateEventProc("BeforePrint", "Workbook") + 1 .InsertLines StartLine, _ " dim NumRows as integer" & vbCr & _ " NumRows = Activesheet.usedrange.rows.count" & vbCr & _ " With Activesheet.pagesetup" & vbCr & _ " .PrintTitleRows = ""$2:$3""" & vbCr & _ " .PrintArea = ""$A$4:$K$"" & NumRows" & vbCr & _ " .PrintHeadings = False" & vbCr & _ " .PrintGridlines = False" & vbCr & _ " .PrintComments = xlPrintNoComments" & vbCr & _ " End With" End With End Sub -------------------- It works as expected and creates the Workbook_BeforePrint procedure. However whenever the code runs it opens a VBA window and shows the newly created code. No errors, just gives focus to the VBA window. This isn't a problem for me while I'm programming/debugging, but the end user shouldn't see this. Any ideas why this is happening and how to keep it from happening? Thanks for any help/suggestions. -- bhofsetz ------------------------------------------------------------------------ bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807 View this thread: http://www.excelforum.com/showthread...hreadid=377417 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating an event procedure question
Thank you Norman, just what I needed it to do -- bhofset ----------------------------------------------------------------------- bhofsetz's Profile: http://www.excelforum.com/member.php...fo&userid=1880 View this thread: http://www.excelforum.com/showthread.php?threadid=37741 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Event Procedure | Excel Programming | |||
Event Procedure again | Excel Programming | |||
programming the VBE for a new event procedure | Excel Programming | |||
Event Procedure Programming | Excel Programming | |||
OnTime event not firing in Workbook_Open event procedure | Excel Programming |