Macro For Printing :: Print By Cells

Mar 22, 2007

I have to print this Excel in the following manner.

I have a table which is similar to one given below. All I need is to print these information in each sheet. For Example Coat sold by CA separately, Coat sold by FD separately, and so on (like the lines I have entered).

Is there any way I can create a Macro for this....

CoatCA420
CoatCA420
CoatCA420
----------------------
CoatFD420
CoatFD420
CoatFD420
CoatFD420
CoatFD420
----------------------
CoatKS420
----------------------

Any usual information will be highly appreciated... FYI.. I am new to Excel VBA programming.

View 5 Replies


ADVERTISEMENT

Print Macro Printing Wrong Sheet

Jun 22, 2006

I have this macro

For I = 6 To 18
Sheets(I).Visible = xlSheetVisible
PrintSubs Sheets(I)
Sheets(I).Visible = xlSheetVeryHidden
Next
End Sub

When it starts printing it starts off with my "JOBCOM" sheet which is sheet20. why it would start printing with that one. That sheet shouldn't even print at all. It's only supposed to print sheets6 to sheet18.

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

Printing :: Don't Print A Column

Jan 30, 2009

I am after a code that will sort out the below printing problem

I want excel to hide ALL OF column E from the printer, i want to see the information myself but when i press print, column E will not show on my printed page

i have found this
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Range("e1").EntireColumn.Hidden = True
.PrintOut
.Range("e1").EntireColumn.Hidden = False
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub

but am not sure how to enter it, also if the code is correct. I have entered it using the alt+f11 then clicked on this sheet, and put it in there but it still dont work

View 9 Replies View Related

Automatically Set Print Range For Last Row Before Printing

Feb 19, 2008

I'd like to set the print range based on the last row with text in specific columns. I found a couple of macros in this forum to adapt, but neither are working. Extra rows, which only contain conditional formatting, and other excluded rows and columns still print.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim MaxRow As Long, i As Integer
MaxRow = 1
For i = 1 To 6
Cells(65536, i).End(xlUp).Select
MaxRow = Application.WorksheetFunction.Max(MaxRow, ActiveCell.Row)
Next i
ActiveSheet.PageSetup.PrintArea = "$A$2:$F$" & MaxRow
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LastRow As Long
LastRow = ActiveSheet.Columns("A:F"). Find(What:="*" _
, After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = "$A$2:$F$" & LastRow
End Sub

View 4 Replies View Related

Capture Print Zoom Value Before Printing

Apr 19, 2008

In a previous, expired thread, the following code was suggested as a way to capture the page-setup zoom value after setting PagesTall and PagesWide. It works fine when single-stepping in the VB Editor and when run directly by the user, via a button click or Tools=>Macros...=>Run, but fails when run under a Worksheet_Activate() event call.

Does anyone understand why that is and/or have a fix or workaround?

Sub X()
'
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,#N/A})"
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})"
MsgBox "Zoom factor is " & ActiveSheet.PageSetup.Zoom

End Sub

View 3 Replies View Related

Printing Command: Print The Sheet Up To The Last Item

Sep 10, 2008

I have created a sheet to calculate a resturant bill that need to be printed for each customer. I am trying to creat a command that will print the sheet up to the last item in the bill "sheet2". So I need the printin area to change according to the number of itmes.

View 14 Replies View Related

VBA Code For Printing Variable Print Ranges

May 5, 2009

I am trying to write VBA code that will print a print range that is presented in cell F3 on a "Reports" worksheet. The content of F3 will change depending on how many reports the user selects to print. For example, he could select one, two, three reports etc - up to twelve. The cell ranges of each report are named (e.g. Report1, Report2 etc) so that if the user selects to print Reports 1 and 2, the contents of cell F3 are "Report1,Report2". If I replace WhatToPrint with "Report1,Report2" the print macro works.

Sub Macro2()
Dim WhatToPrint As String
WhatToPrint = Sheets("Reports").Cells(3, 6).Value
'sets the variable to equal the contents of cell D3 which contains the formula
'summarising the print ranges I want to print
Sheets("Reports").Cells(3, 6).Select
ActiveCell.FormulaR1C1 = WhatToPrint
' pastes the variable in cell F3 - just to check that it looks like I want it to
Sheets("Reports").PageSetup.PrintArea = WhatToPrint
'uses the variable to set print area - this is where it fails!
'if you replace the variable with the contents of cell F3 the macro will work
ActiveWindow.SelectedSheets.PrintPreview
End Sub

View 3 Replies View Related

Envelop Printing: Print All Itemes By One Button

Jun 10, 2006

I've created a Small Program to print envelps and everything is ok. My request is how to print all Itemes by one button (printall).

View 2 Replies View Related

Selective Printing; Print A Label For Each Rack

May 9, 2007

We have a program that sorts Characters into separate racks. I need to print a label for each rack. I can set the print area to cover the whole rack area but what I do not want to do is print blank labels. As you can see I have blank labels at the end of the row, and occasionally there will be one in the middle of the row as well. I have attached a screen shot of the list that I need to print. Is there any way that I can set the printer to only print the label that does have information on it? or am i going to have to print the blank labels in the middle as well?

View 2 Replies View Related

Automatically Define Print Area Before Printing

Aug 17, 2007

I've seen code to set the print area for a dynamic range. However, how can the print area be defined by these parameters:

A1 to one extra blank row below the last cell of data in column A (height), and
last column with data in row 12 (width).

Here is what I'm starting with...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet. Names.Add Name:="Print_Area", _
RefersTo:=Range(Range("A1"), _
Range("A1:IV65536"). Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious, after:=Range("A1")))
End Sub

I have copied formulas in other columns down beyond what the last row of col. A will be. Also, this will need to be applied to about 7 sheets in one book.

View 4 Replies View Related

Printing Code - Print Everything Down The Sheet Until It Sees A Blank In Col A

Apr 27, 2009

I want to have code that will print everything down the sheet until it sees a blank in column A. I have included the code i am trying but it keeps giving me errors.

View 3 Replies View Related

Selecting Named Range Before Printing Using Print Button?

Oct 17, 2013

I have been trying to see if I can set up a single (A1) print button to create a selection box to select a name range and than print that range, but have been unable to figure out how to accomplish it. I have 26 name ranges called PP01 thru PP26 and I want to be able to select the range before printing.

View 1 Replies View Related

Excel 2003 :: Printing - Text Box And Image Print Cell Data Doesn't?

Aug 30, 2013

She has a spreadsheet created in Excel 2003 (she is still using 2003) which contains an image with a textbox in the top left corner then all other cells contain data.

When user prints this spreadsheet all that prints is the image and the textbox.

I have cleared the print area reset the print area removed the picture (prints only the text box)

and none of these changes have changed what prints.

I have checked all printer setting and these appear normal.

previously user could print this spreadsheet fine and all other worksheets in the workbook print fine as well.

other users are still able to print to the same printer correctly from this spreadsheet.

View 2 Replies View Related

Excel 2010 :: Print Hundreds Of 6 Column Charts Using Maximum Page For Printing

Apr 28, 2013

I am using Excel 2010

I have over 800+ pages of chart that only takes up 6 columns and around like 9000+ rows.

I wanted to print this chart on paper and need hardcopies. However, the chart in its current setup prints only on the left half of the page leaving the right half empty.

How do i make use of the full space properly? Each chart has a "page number" on it so I want the chart to print continuously from one half of the page onto the next half and then the second page, third, etc.

Here is a visual demonstration of how things currently are and how i'd like to get them to be:

As you can see, This is the first of many charts and its numbered Page 9 and next one is page 10.

Pic1

How this looks when i try to print, it's only on the left side. right is all blank
Pic2

How i want it to look like upon printing
Pic3

As you can see in the last picture, once page 14 chart has no space it automatically continues chart on right side of page and then moves on to print rest.

[URL]

View 7 Replies View Related

Checking Cells Are Empty Before Print Macro

Oct 4, 2007

I am creating an excel application and have come a bit stuck. I would like to able create a macro button for printing a blank version of the workbook...when I say blank I mean the cells that the end user is able to type into.

I think I am able to do this providing all the cells are on the same sheet as the button using this ...

View 10 Replies View Related

Macro For Exclusive Cells To Be Filled-in Before Print Out

Jun 16, 2008

Need correction in below macro as this still prints out the workbook if only Cell K13 is filled. I want this macro so that it prints only if all the cells are filled-in.

Private Sub CommandButton1_Click()
If ThisWorkbook.Worksheets("Sheet1").Range("K13,G13,F13,C13,C10").Value = "" Then MsgBox ("Please fill-in complete details") Else ActiveWorkbook.PrintOut
End Sub

View 9 Replies View Related

Macro To Use Cells On Another Sheet For Print Headers/Footers

Jun 28, 2008

My problem is that the data I want to add to the headers is in another sheet. Is there a way to modify this code.

1. Currently I have an excel sheet with macros that open other workbooks.
2. I select the macro to open a saved workbook. lets call it "apples"
3. I want to modify "apples" footers.

The data to insert in the header is located in my original workbook with the macros in a sheet called names. Here is the code I would like to modify:

Sub Create_Header()
With ActiveSheet.PageSetup
Dim lh_top, cntr_top, rh_top
lh_top = Cells(3, 2)
cntr_top = Cells(6, 2) & vbLf & Cells(7, 2)
rh_top = Cells(4, 2) & " " & Cells(5, 2)
.LeftHeader = lh_top
.CenterHeader = cntr_top
.RightHeader = rh_top
End With
End Sub

View 2 Replies View Related

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

Macro To Print Active Area Excluding Cells With Forumula That Doesn't Return Value

Dec 20, 2007

Trying to put together a macro that looks down active sheet for all cells that contain a value, sets a print area and then prints !

Is this possible?

FYG, I have a column that run from 3 - 2000, which contains a formula, which may produce a value depending on corresponding cells.

I used this code from a post on a similar topic, but excel is complaining code
in bold

Private Sub Print_Area_Click()
Dim lastCell As Range
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0)
Do Until Application.Count(lastCell.EntireRow) 0
Set lastCell = lastCell.Offset(-1, 0)
Loop
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
End Sub

View 9 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

Printing Multiple Workbooks With Printing Preference As Landscape

Jan 15, 2012

I would like to know if there is a way to print several different workbooks at once but keeping my printing format which I would like to be Landscape and Fit to one page. Reason is simple as I work in a office where staff is handed in several jobs to do everyday. They finish the jobs and log all the info on the database. I log on to database and put all their daily diaries and because it is all over the place I have to go in each file and set printing preferences which takes an hour in the morning and hour in the evening. I could do with some sort of automation where all diaries are automatically printed in Landscape and Fit on one page.

View 2 Replies View Related

Printing / Not Printing Ranges Based On Cell Contents

Apr 11, 2008

I have a report that is generated from a manufacturing process that looks like the example below. the report is 40 pages long when all the data is printed. i am looking for a way to only print this range if a dimension is "out of tolerance". if the dimension is within tolerance, there is always the "garbage" text of plus and minus. if every row is "within tolerance" in the range the cells in the OutTol column would all contain the "garbage" text but it will not always be identical. so, in summary, actual OutTol values = print and all "garbage" = not printed.

NomActDevLoTolUpTolOutTol
Y-0.956-0.9480.008-0.0030.0030.005
Z-1.413-1.4130.000-0.0030.003---*|++++
DIA0.4220.4240.002-0.0030.006----|+*++
POS0.0160.0110.005

View 9 Replies View Related

How To Set Fixed Print Area In Excel So Cells Within Print Area Can Still Be Modified

Feb 12, 2013

I have a workbook with multiple sheets that I need to print.

Is there a way to create a fixed print area within which you can mess around with formatting without extending or shrinking the print area?

I have tried adjusting the margins settings so that they are all the same, but this does nothing to keep a fixed print area.

View 1 Replies View Related

Printing Macro ...

Feb 11, 2010

I have a workbook that has a print button on it. The print button macro prints many tabs on the workbook. But, on ONE of the tabs, it inserts information from a range of cells, prints, goes to the next cell in that range and prints, until complete.

The problem I'm having is this: When there is only ONE cell in that range that has information in it, it gets stuck in a continuous loop and prints a ton of blank pages.

Here's my code for this portion of the macro:

View 8 Replies View Related

Printing To PDF From Macro

Jan 14, 2008

I have tried to record the steps in a macro that are involved in printing a worksheet to a PDF. It recorded everything up to and including hte printer selection. However, it did not record the filename dialog box actions and beyond.

I have Adobe Acrobat 8 and Excel 2003.

View 9 Replies View Related

Printing Macro

Jan 8, 2009

I have a table which I wish to print out, however I wish to print two copies of this table, one with only the rows which contain "AM" in column X, and one with the rows that contain "PM" in column X. There is also another complication in that several rows on the spreadsheet, containing data in column X, are hidden. The print range is everything between A3 & AG120.

I tried using a filter but found it unhid all the hidden rows and printed them out which I don't want.

View 9 Replies View Related

Hide Cells From Printing

Jan 7, 2009

I have several, up to maybe 100 cells in different place in a worksheet, that we don't want to be printed. Until now we changed the text colour for the cells to white, but we noticed that the PDF-files wills til have the "invisible" text. Copy the document text to let say notepad, will show the "hidden" text in the cell.

We have to have another solution to it. Like a macro telling not to print the cell where white text is present.

View 9 Replies View Related







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