VBA To Auto Select Last Populated Print Page
Feb 19, 2014
I have a sheet that already has page breaks set at specific intervals to ensure the data is displayed in a certain way on print, I can only have whole pages. The variable is how many pages are printed on each project, which can be anything between 1 and 20 or more. I have a few columns that contain line numbers, and formulae down the entire length of the sheet, so a basic last populated cell search won't work, but the column I'd like to focus on is Col F, which only has blank/empty cells below the last used one in use. Is it possible to have a BeforePrint code find the last populated cell in Col F and simply capture which print page number it is in, and set that as the number of pages to print?
So in summary, I'd like to be able to just hit Print, and the code will automatically set the number of pages to print based on which page contains the last populated cell in Col F.
View 2 Replies
ADVERTISEMENT
Sep 30, 2006
I'm trying to print populated rows from 5 different worksheets. I can get them to print out onto 5 different sheets of A4 but would ideally like them to print underneath each other (continous and use less paper) as some times one sheet may only have one populated row.
Application. ScreenUpdating = False
Dim printer1 As Range
Dim printer2 As Range
Dim printer3 As Range
Dim printer4 As Range
Dim printer5 As Range
Sheets("xxxx").Select
Set printer1 = ActiveSheet.Range("a9", Range("i65536").End(xlUp))
Sheets("xxxx").Select
Set printer2 = ActiveSheet.Range("a7", Range("i65536").End(xlUp))
Sheets("xxxx").Select...............
View 2 Replies
View Related
Dec 26, 2011
Seeking a way to automatically select just the populated range of cells in Cols A, B and C starting with row 2. In this sample there are 48 however this changes.
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarStacked
ActiveChart.SeriesCollection(1).Name = "=Sheet1!$C$1"
ActiveChart.SeriesCollection(1).Values = "=Sheet1!$C$2:$C$48"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=Sheet1!$D$1"
ActiveChart.SeriesCollection(2).Values = "=Sheet1!$D$2:$D$48"
ActiveChart.SeriesCollection(2).XValues = "=Sheet1!$A$2:$A$48"
View 1 Replies
View Related
Aug 29, 2003
I'm using the select sheets to print code from: http://j- walk.com/ss/excel/tips/tip48.htm. I need to add in another option to select whether to print the page as horizontal or landscape. I've been able to add the checkbox, but am having a hard time with the loop to process correctly. I also have the landscape changing code as well. Here is my
Option Explicit
Sub SelectSheets()
Dim i As Integer
Dim TopPos As Integer
Dim TopPos1 As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim cb As CheckBox
Application.ScreenUpdating = False
If ActiveWorkbook.ProtectStructure Then
MsgBox "Workbook is protected.", vbCritical
Exit Sub
End If
Set CurrentSheet = ActiveSheet............
View 2 Replies
View Related
Oct 16, 2013
I have a sheet that changes the number of columns based on data from other sheets. This is the only sheet in the workbook that I will print out every day. I have it set right now to fit all columns on one page, however sometimes this will result in the bottom 1/3rd of the sheet not being used. If I use fit all rows on one page, then some of the columns will get cut off. Is there a way to scale in both directions? My guess is there is not, but I thought I would ask because it would work great for me if I could.
View 4 Replies
View Related
Jun 29, 2007
I need a macro that will print a hidden page that is linked to the page I have active.
It needs to be able to find the correct hidden page that corresponds to the active page because there are multilple pairs of the hidden/visible pages. The name of the hidden page is the same as the visible one with "printout" added to the end. When created, the sheet code names are sheetn and sheetm; n and m being consecutive numbers.
View 3 Replies
View Related
Mar 8, 2007
I have a template worksheet that several people use and print from.
The range on this worksheet used is A1:C499
I want the VBA to look at tha last cell that is populated in column A and set the print area to suit.
i.e. the last cell used in column A could be A277. then I'd want the print area to be A1:C277.
View 9 Replies
View Related
Jan 14, 2010
to be able to do is have a stock control sheet that tells me how much of 1 item we have in stock which is easy, the hard part comes when this stock is sold as this stock can be sold to a number of different customers e.g.
We have 10,000 X Pens
Customer 1 buys 1,000
Customer 2 buys 6,000
Customer 3 buys 3,000
i need a way of saying that we have 10,000 pens but if we sold 1,000 then we can click a button (macro maybe) and that will automatically see that we have 10,000 for that line and we have only sold 1,000 so we need a line inserting saying that we have 9,000 remaing and so on.... The sheet needs to record who these goes to though, that the reason i was thinking of adding a row
If this doesnt make sense then i am happy to answer your questions?
i can upload an example excel sheet if required if someone can explain how i do this?
View 14 Replies
View Related
Dec 10, 2012
Using Excel 2010: I have 2 rows (A4:J4 & A5:J5) selected as print titles that I would like to be printed at the top of selected pages. Currently, my document is 3 pages long, and I would like to have the print titles only applied to the first 2 pages. More data will be added in the future on pages 1&2 but the last page (whatever page number it ends up being) should not contain the selected print titles.
View 2 Replies
View Related
Apr 10, 2013
I have been searching for hours trying to find a solution to no avail. What I need to do is make sure that when I press a button on a form, the value in a combo-box should be populated as "text format" not as a number. The reason for this is that when my numbers start with a 0, the leading zero gets dropped and I can't run the rest of my code as the items don't match...
I have tried substituting the "Value" to "text" in : Me.cboItem.value and have tried for hours trying to name dim variables as a String and pass this into the cboItem...with no luck...
VB:
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Order")
'find first empty row in database
iRow = ws.cells.Find(What:="*", SearchOrder:=xlRows, _
[Code]...
The below populated the combo box cboItem:
VB:
Private Sub OptionButton1_Click()
With Me.cboItem
.Clear
.List = Application.Transpose(Worksheets("Item List").Range("List1"))
End With
End Sub
View 1 Replies
View Related
Aug 16, 2006
I have a range of data in columns A2 to Mx. The length of the columns varies, and all cells are not always populated. I want to be able to select the entire range, no matter what its length, no matter how many cells are populated (as both of these will vary on each tab) However, I do not want to select A1 to M1 as this is column headers which need to be excluded from the data for compliation purposes.
View 9 Replies
View Related
Apr 21, 2014
I have two or more fields of data, where parts of them are auto populated based on inputs from elsewhere. That part i have working fine, however the problem arises in taking that information and displaying it as a Bill of Materials list on another tab in my excel file. I want to take the information, and only display it in the BOM tab if that piece of information is being used (ie item count field not being 0). I know how to do that part in a rather simple format, however i'd prefer to make it so that when i have the list, and a certain item isn't used then its not included in the BOM, and an empty space is not left behind. I would prefer this to be all be done automatically by a formula if possible instead of just having to resort to sorting the table every time the tool is being used.
Is this even possible in excel, A quick example doc is attached, shows 2 example fields. i'd like to take the information from those 2 fields. and somehow create a single list, with a single heading along the top, with all row containing a 0 "Unit Count" to be omitted entirely from the list, and not have a blank space where the item should be. Keep in mind these fields may be greater than 2, and may not be position one after the other in a strait down line.
Example.xlsx
View 4 Replies
View Related
Dec 29, 2009
I have an Excel 2007 file with a number of tabs, about 15. All has worked well until today. All of a sudden I want to print one page and the preview shows I have 300 pages selected!!!!
I cleared all print ranges,even on hidden files. No luck.....
I only selected one page. it tells me my print margins are off but it will not let me get to any changes in page setup......
I tried printing a few of them and I just get the top few rows of each page.
View 4 Replies
View Related
Mar 11, 2014
Can you make excel only print the first page automatically without adjusting settings each time in the print box?
View 1 Replies
View Related
Apr 18, 2007
How can I set a workbook to only print the first page without printing it? I want to apply it to a folder full of xls workbooks so whenever a user opens one to print, they can just hit print.
I have tried:
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
but it sends the file to the printer. I do not want to have to use a macro in each file, I just want to use an existing xls workbook to apply the settings to many other xls workbooks.
View 3 Replies
View Related
Nov 23, 2008
I set up a passworded spreadsheet and saved it to my documents folder. I then copied it across to a network area I use to link to a company I work with. The file opens ok on the password but the page is completely white and I can see nothing at all! When I print preview the page I can see all my information but this doesn't help when I need to update it.
Not only that, the whole lot of excel spreadsheets I have both on my documents and the network area are doing the same thing! I've no idea how it's happened or what to do to retrieve the page view.
View 2 Replies
View Related
Nov 24, 2008
I would like to have the tab names as part of my header for printed report. Can I automate that process?
View 2 Replies
View Related
Jan 16, 2010
how to print one report page for every row on a sheet. So if I have 300 rows containing personal info like name phone email I would like to print the data out in a separate formated report for each person.
View 3 Replies
View Related
Oct 23, 2008
I have a database that starts on row 10 with header information in row 9 explaining the purpose of the data for each column. In rows 1 through 8 I have general information that when I print the database - I would want on the first printed page (as well as the beginning rows of the database) and have the remaining print pages be the remaining portions of the database but have the header row (row 9) at the top of each - like a header row.
I know how to goto FILE > PAGE SETUP > SHEET > ROWS TO REPEAT AT TOP: - but this will put row 9 at the top of ALL pages...which I want, but not on the first page. I'm ok with making a print button with a macro...but no idea where to begin with the vba code to do this.
View 3 Replies
View Related
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
Jul 21, 2013
I am working on workbook having more then 15 sheets and i want to print the cell reference (L3:P14) as footer automatically but only on the last page printed.
View 2 Replies
View Related
Jun 12, 2014
How do I print columns A:I, and calculating rows dynamically, to fit on one page in portrait.
View 2 Replies
View Related
Apr 25, 2007
I have a page i want to print fx. 50 copies of, then when i choose to make 50 copies it should automaticly insert this on the page:
Page 1 out of 50
Page 2 out of 50
Page 3 out of 50
and so on...
View 9 Replies
View Related
Mar 29, 2013
I have a sheet that I would like to print to one page (11x17, landscape) and have it take up the majority of the page. The largest the sheet will ever be is data in rows 1 - 71, and columns A - AC. Right now I have it set up so that when i click on the button, the print dialog opens up and no adjustments are needed to print to pdf in 11x17 for the maximum amount of data.
Overall what I am trying to do is have the zoom change when rows are deleted (columns will always be A-AC). The top 5 rows and bottom 5 rows will always be there. I want the top and bottom margins to be the same on the pdf even if 10 rows are deleted in between.
View 1 Replies
View Related
Aug 7, 2009
I have a problem when I want to print, it will only print a set area. How to I make it print everything, so it prints everything till the last letter on the page?
View 10 Replies
View Related
Feb 4, 2013
I want to print a page showing the formulas as I have to create many spreadsheets using similiar formulas. Is there a way to print a page viewing formulas put in each cell?
View 4 Replies
View Related
Aug 27, 2013
I have a spreadsheet with only entries in column A - 154 cells. Nothing in other columns. When I try to print, it says it'll be 4 sheets long...
1
2
3
4
down to
154
How can I get it to print in a snake-like fashion so all on one page?
View 2 Replies
View Related
Mar 24, 2014
I have a voucher that I am trying to print out for everyone with their name and Employee number on it. Now, I have the generic voucher and the list of name. I am wondering if there is a way to automatically print out vouchers with their name on it, according to the list? Or if some VBA can allow me to create a sheet for each person in the workbook.
View 3 Replies
View Related
Jun 10, 2014
I have seven printareas as follows:
$G$8:$Q$40 - Landscape
$C$42:$M$108 - Portrait
$O$42:$Y$108 - Portrait
$C$110:$M$157 - Landscape
$C$159:$M$206 - Landscape
$O$110:$Y157 - Landscape
$O$159:$Y$206 - Landscape
As you can see, when I go to print preview, I will want the first and the last four to be formatted landscape and the second and third to be formatted portrait. This is all I want the macro to do. Then later when I go to print, I want to be able to print them all together. Is there a way to do this? Perhaps by letting the first printarea be on its on sheet, the second two on their own sheet, and the final four on their own sheet?
View 1 Replies
View Related
May 30, 2012
Within one worksheet: Is there a way to apply page numbers and/or footers only to a print area so that if I change the print area the page numbers will begin at 1 again.
View 1 Replies
View Related
