New Print Macro

Dec 12, 2006

What I would like to do is when I click on the print botton or select Print from the File menu, I would like to have a dialog box pop up with a YES botton and NO button asking the question "Would you like to print out the Medication Summary Page?". YES indicates to print off an additional worksheet and NO indicates just print the active sheet.

In the active sheet I have dropdown list in B6 to select a drug name to calculate IV medication drip rates. I also have other worksheets Named the same as in the list. For example, if you select D5W in the list, I have a worksheet named D5W. If you select YES in the message box, I would like to have the Active Sheet and the Medication Summary page print, ELSE just print the Active Sheet.

View 9 Replies


ADVERTISEMENT

Macro To Print Sheets With Value In Cell A1 But Print Dynamic Ranges On Certain Sheet

Sep 24, 2013

I've found some code which works to print certain pages with value in cell A1 but I need to print dynamic ranges on some of the sheets as they will have filters on so the rows ranges will be different each time.

So far this is what I have but the dynamic range part is not working:

VB:
Sub Print_All_Worksheets_With_Value_In_A1()
Dim Sh As Worksheet
Dim Arr() As String
Dim N As Integer

[Code] ....

View 3 Replies View Related

Stop Print Macro Firing Before Print Event

Oct 18, 2006

I have a "submit" button macro which user would click after he has finished his input. This macro would update a reference number on the worksheet named "orange" and then print out this worksheet.

My purpose is "orange" is printed out with a reference number.

Below is the 1st code.....

View 9 Replies View Related

Option To Print - Use Print Macro

Dec 30, 2008

I have a few macros that run in a sheet. After the macros are finnished I would like to present to the user a msgbox that asks if they would like to print. if "Yes" is selected, the print macro runs. If "No" is pressed then nothing happens.

View 3 Replies View Related

Disable Print But Allow Print From Macro

Jun 11, 2007

I have found a macro which disables all print features in excel. I have rwo other codes to print. When I put this macro, It also disables the print from the other macro. How can I use this code so that normal print features will be disabled but if someone takes the print from the macros, Print will be allowed. The code which disables the print is given below:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If PrtOK Then
Cancel = False
Else
MsgBox "Can't print from here!"
Cancel = True
End If
End Sub

View 9 Replies View Related

Programmable Print Area: Macro To Set The Print Area According To The Amount Of Data In A Particular Range Of Cells

Feb 25, 2009

Using Excel 2003 I am trying to write a macro to set the print area according to the amount of data in a particular range of cells. I find I can include this instruction

View 2 Replies View Related

Using If Within Print Macro?

May 28, 2014

The print area for each of the rows (summary tab) on the attached has been set up, though using button 3 we need to run the same print macro but ignore any rows (summary tab) that happen to be 0.

The attached sheet only gives two rows but there is a potential for up to 40 of them!

Would an IF function within the macro/code work?

View 14 Replies View Related

Macro For Print Out

Feb 6, 2010

I need a macro using a command button in sheet 2 that opens the "Print" window to print out the text in sheet 1 (after chosing printer manually of course). I also want a radio button in sheet 2 so I can select if I want to print out page 1-3 instead of page 1-2 in sheet 1.

View 2 Replies View Related

Fix My Print Macro

Jul 24, 2007

I'm close - but I want the 'user' to be able to enter the number zero to either of my prompts without causing the macro to fail. Currently, if a user does not want to print any color copies (i.e. enters 0 - or B&W for that matter) the macro fails. Any ideas?

Sub Print_Report()
Dim CCopies, bwcopies As Integer

Copies = Application.InputBox("How many color copies?", Type:=1)
Copies = Application.InputBox("How many B&W copies?", Type:=1)
Sheets("YTD").PrintOut Copies:=CCopies, ActivePrinter:= _
"network_address_goes_here:", Collate:=True
Sheets("YTD Graph").PrintOut Copies:=CCopies, ActivePrinter:= _
"network_address_goes_here", Collate:=True
Sheets("YTD").PrintOut Copies:=bwcopies, ActivePrinter:= _
"network_address_goes_here", Collate:=True
Sheets("YTD Graph").PrintOut Copies:=bwcopies, ActivePrinter:= _
"network_address_goes_here", Collate:=True
End Sub

View 9 Replies View Related

Macro Print

Sep 7, 2007

I am wanting to add to my macro a print function.

I have a list of names in Col F

And the Cell A1 powers the data on the sheet.

I want the macro to say if C1 is then make C1=A1, if C1="",stop
and I want that to go on for C2, C3, C4, etc.

View 9 Replies View Related

Print To PDF Macro

Aug 20, 2009

I'm trying to write a macro which prints to PDF and I've been looking through all the posts currently on this forum to get something working. I'm using the following code -

Sub PrintPDF()
Filename = "C:Documents and SettingssambMy Documents" & ActiveSheet.Range("Z1").Value
SendKeys Filename & "{ENTER}", False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF:", Collate:=True
End Sub

The macro prints to PDF, but then it stops at the Save As stage, where I have to manually enter the name of the file and click Save. I obviously want the macro to automatically name the file with the contents of cell Z1. I then want it to then automatically press enter.

View 9 Replies View Related

VBA Or MACRO PRINT THE JOB

Sep 30, 2009

I have a worksheet with blank tables on 2 template tabs named viz: ON BOARD and NOT ON BOARD, each with 3 sheets to print when viewed on print preview.

What I want is just print ONLY those sheets which have data filled in., i.e if I have data on 1 sheet out of 3 sheets, I want only 1 page to be printed, if there is data on 2 sheets then print only 2 and so on, from both the sheet tabs.

On Page Set up window, I have following specs:

On Page Tab: As follows

Orientation: Landscape

Adjust to: 75 % of normal size

Paper size: 8.5 X 14" Legal

On Sheet Tab:

Print Area A1:O51

Under Print titles:

Rows to repeat at top: $1:$6

These settings are standard for both the sheet tabs.

View 9 Replies View Related

Using Macro To Print Sheet

Jan 13, 2010

I am using a macro with the code below to print the active sheet.

Sub MyPrintOut()
ActiveSheet.PrintOut
End Sub

I assigned the macro to a rectangle. My only problem is that when i print the sheet i can see the rectangle, is there a way around this? I know that i can set the print area but each sheet has a different setup, i tried using .Visible = False for the rectangle but it gave me a few errors.

View 2 Replies View Related

Macro To Print Selection

Nov 20, 2008

I seem to be getting myself into a complete muddle as was wondering if someone to help me with a Printing problem.

On the attached sample, i'm trying to write a macro to print the selection but only print where the status is "Active" to the ned of the selection. However, the spreadsheet is changing on a daily basis i.e. new lines being added and lines being taken off.

So, to take potential of user error out i wanted a macro to print the "active" selection.

View 9 Replies View Related

Print Button Macro ..

Nov 24, 2008

I have a workbook with approximately 260 sheets. These sheets contain financial information. They have to be sorted according to the division within the company, with a total page for each financial division.

I have a code on a blank tab that prints the sheets based on a value in cell B3 on each sheet. (i.e. "VB", "WB", which are initials of our district managers.)

View 6 Replies View Related

Print Range Macro

Jun 10, 2009

setting up a print range macro:

I have a sheet where:

1) column A (rows 1-54) needs to be printed with every printing
2) other columns (b-e) or (f-i) etc need to be printed out with each printing

Is it possible to setup a macro to do this as long as I know which columns need to be printed every time (will be same number of rows every time)

Basically, there is info in column A that needs to be printed every time, then I want to be able to print out a months worth of data (b-e for january) for each printout. It is essentially a calendar that I need to print up a hard copy of.

I know zero about vba and much of what I have found on the internet has only confused me more.

View 14 Replies View Related

Print Macro To Fit Page

Apr 1, 2012

I have a macro to print out page 9 but what i whant it to do is to print and fit to full page. how do i do that?

Code:
ExecuteExcel4Macro "PRINT(2,9,9,1,,,,,,,,2,,,TRUE,,FALSE)"
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

View 1 Replies View Related

Print Macro In Landscape

May 29, 2013

i have the follow code below to print data from A2 to to the last row ihn Col Z (Hidden rows to be excluded)

I can't get the macro to print in Landscape. I also need tpo print with gridlines

Sub Print_all()
Application.ScreenUpdating = False
Sheets(1).Select
Dim LastRow As Long
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With

[Code]...

View 3 Replies View Related

Macro To Set Print Area

Jul 20, 2007

Is there a macro that can automatically set the print area by determining what the used range is. For example, If P96 is my last used cell, I would want a1: P96 as my print area.

View 9 Replies View Related

Using Macro To Set Print Area

Oct 11, 2007

My macro selects cells containing data - then i want the macro to set the print area to those selected cells - works fine - but the selected cells won't be the same each time i run the macro. Here's how it looks now:

Range("A1:M1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$76"

The next time i run the macro the selected cells won't be A1:M76 - how do i have the macro set the print area to whatever is selected?

View 9 Replies View Related

Print Macro Button

Oct 16, 2008

I need to know how to make a box that says "print" which will print out pages in my excel file... What I am picturing is this:

Tab 1 Y
Tab 2 Y
Tab 3 N
... etc.

Making a table as the one above, and depending on whether I input "Y" or "N", it will print that tab...

i've seen this in some financial models and would like to incorporate it into my model. If you could offer some detailed help, it would be greatly appreciated. Please note that I am a complete beginner and would need to be taken step-by-step.

View 9 Replies View Related

Macro To Print Non Duplicates

Mar 4, 2009

I've found this macro that prints out the information for each row, when I select the range -which is great. The only problem I have is, if i have the same info in the first row and second row it prints out both. Which is what the Macro below is meant to do.

Can a IF formula be placed in the Macro so that if person A in row 1 is already printed, it will skip person A in row 2 and print out the next row, and repeat the process for any other duplicates.

Sub PrintForms()
Dim StartRow As Integer
Dim EndRow As Integer
Dim Msg As String
Dim i As Integer

Sheets("Runsheet").Activate
StartRow = Range("StartRow")
EndRow = Range("EndRow")

If StartRow > EndRow Then
Msg = "ERROR" & vbCrLf & "The starting row must be less than the ending row!"
MsgBox Msg, vbCritical, APPNAME
End If

For i = StartRow To EndRow
Range("RowIndex") = i
If Range("Preview") Then
ActiveSheet.PrintPreview
Else
ActiveSheet.PrintOut
End If
Next i
End Sub

View 10 Replies View Related

Print Area With A Macro

Apr 10, 2009

I am looking to set the print area with a macro, below is what I had hoped would work. It does not. I get unable to get Vlookup property of worksheetFunction class error.

Sub Printzed()
Start = Range("C6").Address
Finish = Res = Application.WorksheetFunction.VLookup(I5, Range("prlu"), 2).Address

myPrintArea = Start & ":" & Finish
ActiveSheet.PageSetup.PrintArea = myPrintArea
End Sub

View 9 Replies View Related

Looping Print Macro

May 19, 2009

A macro that scans Sheet "CSD" Range "B4:B201" for the word "Yellow" and copys the data in the row based on conditions to Sheet "Yellow Ticket" and prints the Ticket.
Heres a Pic of my "CSD" Sheet.

******** ******************** ************************************************************************>Microsoft Excel - Hybels_Loading_Tickets redo for post.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA1=ABCDEFGHIJKL1  Starting Load #         2  3800         3 Ticket ColorLoad #DropCart #Customer ALLSTARS4" Wave3-0-6 Wave6" Wave18-0-1 Wave10" HB4 Pink3851C1Hawks27  45  5Yellow3852D3Bomgaar's 28 67    6 Yellow3850E5Larry's  34  677            8           9            10            11           12            13            14            Count Sheet Esman Greenhouse's [HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name boxPLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.

Here's a pic of my "Yellow Ticket"
******** ******************** ************************************************************************>Microsoft Excel - Hybels_Loading_Tickets redo for post.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA1=ABCDEFGH1R. Hls Inc.2Helping Make Your Business Grow!3        4For questions regarding product please call 800..!5For questions regarding shipping or cart removal please call 888-344.3710!6        7    Load #                                    Drop Letter                            Cart
#(1-30).....................

View 14 Replies View Related

Auto-Print Macro

May 25, 2009

I have a spreadsheet where on one tab, there is a list of user inputs for each item number (i.e. Item 1 - Length A, Height B, Width C; Item 2 - Length D, Height E, Width F etc.) so the user is able to modify the number of items and the specs for each item. On another tab in cell BB8, the user is able to type in the item number and an image of that item is displayed. The user can then print out the image.

My problem is that usually the number of items is very big list and so it is tedious to manually change the item number each time you want to print out a particular image. I want to write a macro that can automatically change the item number and print out the corresponding image (So for example, if there are 10 items, print out all 10 images with a single macro, as opposed to manually changing the item number and pressing print each time).

View 9 Replies View Related

Macro To Print Screen

May 27, 2009

Is there a feature or VB code that will take a screen shot in excel for the sheet that I have active?

What I would like to do is run a macro that does a few things, then takes a screen shot and bundles it up in an email to send (Outlook on Exchange). Since the report is 30 MB it cannot be emailed and taking the time to compose a report w/screen shot takes too much time.

View 9 Replies View Related

Print Preview Macro

Jun 20, 2006

1. Uses PrintPreview to view the results centered horiztonally on the page with the worksheet name at the center top of the printout and my name in the lower-right corner of the printout.

2. Closes PrintPreview. Everything is fine, except the macro will NOT close PrintPreview! I don't know what I'm doing wrong.

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&F"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "Jennifer Large"
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5).........................

View 3 Replies View Related

Macro: Print Sheets If Used

Sep 9, 2006

I'm in the process of placing a button on sheet#1 that will print any of the 5 sheets in the workbook that have been used... a sheets use is determined by cell I53 being > 0...

I've initially used this code to test I53, but it shows all sheets, regardless of I53 value...

Sub PrntUsedShts()
Dim ws As Worksheet

For Each ws In Worksheets
If Range("I53").Value > 0 Then
ws.PrintPreview
End If
Next ws
End Sub




Ideally, the finished code will send all selected sheets collated as a single print job...
Should I be looking at putting test positive sheets into a sheet array?, then printing the sheet array?

Once again, your valued input is greatly appreciated...

View 9 Replies View Related

Macro To Print Specified Range

Oct 16, 2006

I would like to have a code that allows user to print. The print area is fixed at A1 to U50 and should be printed in 1 page. The sheet name is called "apple".

View 2 Replies View Related

Print Graph With Macro

Feb 9, 2007

I have a long series of graph about 25 on one work sheet, i write a simple macro and attach to a button, that when pressed prints all graphs on the sheet. Now I need a macro that perform the following.

a) user is allowed to enter the desired number of graph and it prints only that chart from the sheet. If he enters 4 it prints only 4th graph

b) User is allowed to enter the range and it prints all graph in that range. e.g if user enters 3 - 7 it prints only 3 to 7 graphs

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved