Excel Print Routine Help

Ask that in 'microsoft.public.excel.worksheet.functions'.

Tools->Macro->Visual basic editor Then you should select ThisWorkbook and past your code

It should work then.

Cheers

I'm sorry, sir, and I appreciate the help, but there is no "ThisWorkbook" command in Tools->Macro->Visual Basic Editor. That was the instruction that somebody gave me last time and I've been on and off fiddling with it for about six months.

Can you be a bit more specific (Excel 2003)?

Jim

Go into Visual Basic Editor, via the menu as someone said or just press Alt-F11. You'll see This Workbook on left top panel.

Tom

Sorry maybe I was not clear.

To open the VBA Editor, Tools->Macro->Visual basic editor Then in the VBA editor select 'ThisWorkbook' in the Left pane. This applies to Office 2003. As mentioned Alt+F11 is the short cut to the VBA editor.

Cheers

No, Tom, sorry, that's just not so. Are you using Excel 2003?

Jim

Martin & Tom

There is no "Left Pane" when I open up the VB editor. THere is a gray screen and two lines of commands along the top. THe top one is the usual "File Edit View ..." and below that there is a toolbar with icons. No Left Pane.

Jim

In VBA select View->ProjectExplorer. This is the left pane we are referencing. its usually shown by default. It'll Show VBAProject (Book1)... and the list of Sheets(Sheet1 Sheet2....) and ThisWorkbook. Double click on ThisWorkbook and the code window will display.

Cheers

There's a bunch of icons on the tool bar in the VB editor. One of them says Project Explorer when you slide the cursor onto it. Click that.

I'll send you an Email with an attached screenshot.

Ed

FOUND IT. GOT IT. INSTALLED IT.

It doesn't do anything. WHere do we go from here? I used both characters (Y) and numerical characters (1.00) in the target cell and it still printed that page quite nicely. I used null ("") in my IF statement for pages I didn't want to print and it printed THAT page quite nicely as well.

Jim

After F11 calls up the VB editor, F7 then calls up the code window and Ctrl-R calls up the Project sidebar.

Cheers, John

Can you post the code?

Cheers

Do you need his original response reposted?

I think you have to 'run' the routine to perform the calculated print set. You no longer choose print from the menu, you 'call' the routine.

Sure, here you go:

Sub selprint() Dim i As Integer Dim currentsheet As Worksheet

For i = 1 To ActiveWorkbook.Worksheets.Count Set currentsheet = ActiveWorkbook.Worksheets(i) Worksheets(i).Activate 'Skip empty sheets and hidden sheets If Application.CountA(currentsheet.Cells) 0 And currentsheet.Visible Then 'change the hard-coded cell here if not F52 If (Not IsNull(Range("F52"))) And (Range("F52").Value 0) Then 'un-comment the next line when debugging completed ' ActiveSheet.PrintOut 'add comment at start of next line when debugging completed ActiveSheet.PrintPreview End If End If Next i End Sub

Jim

You know, I was afraid that was going to be the case. If that is true, then all this work is for naught...I'm trying to make this routine work for a bunch of technotards that have trouble finding the "on" switch. Trying to tell them how to call or run a routine is going to be next to impossible.

Jim

Original post quoted:

Starts getting messier with more tests but taking your example, you coulde modify the line:- "If (Not IsNull(Range("F22"))) And (Range("F22").Value 0) Then" to include an OR function e.g. "If ((Not IsNull(Range("F22"))) And (Range("F22").Value 0)) or ((Not IsNull(Range("G16"))) And (Range("G16").Value 0))Then"

Alternatively could you use another cell on the sheets to flag that F22 OR G16 had a non-zero number? I am not an excel expert so you /could/ get a more structured response from a microsoft excel newsgroup. I also started with GW then QB the VBDOS 1.0 - stopped at VB6 when they went to .NET

Geo

You should be able to make a "button".

The routine was saved as a macro. I made a CTRL-z shortcut to the macro and ran it. Sure enough, it called up the "print preview" menu and I could print the whole workbook out but still, the unwanted pages printed quite nicely. AND, when it was all through printing, I had to close out each page (all 34 of them) one by one. I think I'll go over to an excel group if somebody can recommend one.

Jim

Same prefix as the other I suggested, but likely this one is more appropriate: m.p.excel.programming