Would it be possible to have a unique number appear on every indivually printed sheet?
My worksheet in Excel fits onto one sheet of paper and I would like a unique number to appear whenever I print, even after closing system and re-opening file at a later date (the last printed sheet is 'remembered' so the next printed sheet is the next number in sequence).
So the first time I print a batch of say 100 I would have 100 x identical pages EACH with a unique number, i.e., '0001' to '0100'. The next time I print another 50 say, I would have '0101' to '0150' and so on.
Many people use Excel to generate forms that will be printed off and carried around on a sheet of paper, because the boxes and lines are nice and square, and straight, Word is not so co-operative
There have been lots of queries how to auto-number such forms, so that you can later file or issue them in a particular order, or use the numbers later as a reference doing other stuff.
Here's what I want to do:
I run a limousine service taking clients from places like hotels to various destinations
I have a little travel voucher form, to be filled by hand, 3 copies to a sheet, so we are gonna print them, and cut the page into 3 lil vouchers. Like printing lottery or competition tickets. The vouchers have artwork to suit the place requesting my service.
They are NOT invoices, to be opened, numbered, worked on, and THEN printed
Cell G2 will start autonumbering at 1001, Cell G18 would be 1002, Cell G34 would be 1003, then when the second page prints, we get 1004, 1005, and 1006 respectively. Each sheet has to be individually cut and stacked
Alternately, we decide a quantity to print (50) and start G18 at say 1050 and G34 at 1101. This would be better, because when cutting the paper up with a guillotine, the first 50 vouchers are already in number order, the 2nd 50 get stacked under them, and finally the 3rd 50 below that, so now my stack of vouchers runs from 1001 to 1150 nice and easy and neat
A drawback with this is that I have to do specific print runs and somewhere in the document, specify the starting number for G2
I have heard of a method to print, say 20 forms, starting say, 1001, ending 1020 and a text file saves the last number used, so the next print run picks up from there, at 1021, can that method be combined in? I'm working in a small office that needs these vouchers but we dont wanna have a commercial printshop tool up (big $) to do small print runs
I can also do the vouchers for other suppliers to use with different artwork
As you look in the the attacht file you can see that there are rows in grey. But if i print it everything is black. We tried on a differend computer (even differend opperating system) and on mac it prints correct, but on my windows it doesn't? It is probable a setting but i can't find what it is..
I have a macro that prints all documents that are found in a directory, i was thinking that it should be possible to modify this macro to count both number of documents as well as the pages that are printed, and display the count once the documents are sent for printing.
The Code: Start of Code: Sub ListDocNamesInFolder() Dim sMyDir As String Dim sDocName As String sMyDir = "C:My Documents" sDocName = Dir(sMyDir & "*.DOC")
I need a method or function that can count the TOTAL number of pages to that will be printed. I don't need anything with HPageBreaks or Get.document(50, ""sheet name"")") for these don't seem to work on my worksheet.
All they seem to do is give me a number lower then the number of pages that will be printed and they are dependent on where the active cell is.
Here is my code that does not work.
Code: Agreement_Page_Count = ExecuteExcel4Macro("Get.document(50,""Signature Page"")") and Code: Function HowManyPagesBreaks(sSheet As Worksheet) Dim iHpBreaks As Integer, iVBreaks As Integer Dim iTotPages As Integer With sSheet
[Code] ........
Both codes return 2 when there are 3 pages that can be printed. Unless I pause the code select the cell at the bottom of my sheet (it ignores it if I use use a macro to select the bottom cell) and then continue my code.
I've tried it with and without the entirerow.hidden.
Is there a way of bypassing everything and using a marco to open up page preview and getting the total number of page to be printed? I'm using excel 2010
I wanted to add the date of the last modification of the file to the printed pages, so I googled how to do it and found a useful answer on this from from 10 years ago. It said to press ALT+F11, then on the left side go under VBAProject, there go to ThisWorkbook and there paste the next code:
Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean) For Each wk In Worksheets With ActiveSheet.PageSetup .LeftHeader = "Last Modified on " & ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time") .CenterHeader = ""
[Code]....
Then I saved it and closed. Like I said, it worked perfectly.
The problem is that when I open the file after closing it, it does not appear, and I have to paste the code again every time I open it. Not only is this not comfortable, it also counts as a modification, so even if I haven't changed the work sheets themselves, just wanted to open and print it, it shows today's date.
My question is, who to I save it permanently so it will remain always after the first time I created it?
While we're at it, if there's a way for that code to appear on every NEW Excel file I create automatically
After entering some values in a form I want to get a unique id for that record to be displayed in a message box and thereafter inserted into column A in the same row as the rest of the information. The numbering should be 1, 2, 3 etc and when I use the application the next time the id displayed should be the next number. This is what I've got so far, but now my unique id is always 1 (not very unique at all).
Private Sub UserForm1_Initialize() Dim rIds As Range Dim MaxId As Long
Set rIds = .Range(Cells(A, A), Cells(Rows.Count, 1).End(xlUp)) MaxId = Application.WorksheetFunction.Max(rIds) With Me.IdBox.Value = MaxId
Private Sub DateBox_Change() DateBox = Format(Date, "yy/mm/dd") End Sub
I have a single page spreadsheet. I want to print multiple copies and have a unique invoice number on each page printed in cell O1. I don't want to just send it to the printer as individual print jobs. I would like to send it to print as a pdf in a single 100 page document or if not a pdf then just as a multiple page document.
For example first print run would start at number 1001 and last numbered page is 1101.
I'm trying to execute a macro and it won't put the focus (radio button) to select x pages wide by x pages tall in the Page Setup/Page/Scaling Area. I looked at the macro and can't find a setting in the code but yet the focus won't change. What can I do about this? In other words the radio button stays selected as "adjust to "" % of normal size. Here's the code...
In excel sheet some times I highlight Cells, Rows or Columns for references but while printing these highlights get printed. is there any formatting tip so that only values are printed but highlights don't get printed (not even in grey scale).
My spreadsheet is a dual purpose spreadsheet, it is my printable catalog of product offerings as well as my worksheet for my cost and my cost markup. I have apx 2500 rows of product offerings.
My question -I would like to be able to print my catalog without my cost markup columns being printed. It is not practical for me to hide the column, then print, then unhide the column again every time I want to print out my catalog. I would like the columns to always be visible, but just not print.
The following code works fine except when the sheet1 gets printed then its blank but in actual the sheet1 has got some information in it. SO why its printing a blank page.
I have this question for indentifying the last row (number) for each and every page to be printed.
As I am using a loop to determine the last row of the table in each print page, I am only able to do in "hard coded". And with this "hard-coded" row number, I can set bordering to the table so that table will not be printed without any border (for in between pages if table is more than a page)
But the problem is that I had discovered that once any other user start using wrap text, or even change the row height, the macro will still captures the pre-determined no. of rows to do the bordering (as shown in my code).
In my, I had restricted the zoom size so that the quotation will always be the same format. Hence, based on this control zoom, the printable page changes if the row height changes too.
Is there a way to 'lock' a page from being changed once it has been printed? It can be printed multiple times but want it to not be able to be edited once it has been printed. Thinking I could have a control button on the page maybe and once it has been checked ok to print then click the button and it saves it as is and uneditable?
We have some reports on multiple worksheets. We need to ensure a legend/definition sheet is printed whenever one or several of the worksheets are printed. Is it possible to mandate a worksheet to be printed along w/ whatever else is being printed?
I have spent some time looking through the forum and even looked at Microsoft Excel help file and cannot seem to get exactly what I need. I have worksheets that I found the code on this site that I can put page breaks every so many rows. I have it set for 26 so it will break for every 25 counting the header. Here is the
Sub PageBreaks() For I = 27 To 760 Step 25
ActiveSheet.HPageBreaks.Add Before:= Range("A" & I) Next I End Sub
The problem I am having is when I print the first page it has the headers in them, for example.
LastName, FirstName, StuID, GrdLvl
How can I get a row placed right after each page break with with the column headers so each sheet I print will have the headers with the 25 rows of informatio. But then not be there after I print so If I need to sort I won't have a problem with all the headers.
I have a worksheet which has two large tables. When one table flows onto another page, the users need to see the title i.e. Header of that table. How can I do this?
I have a document that I need to track all changes to. I have a macro running perfectly right now that tracks all of the content changes to the form. What I am wondering is if I can add something that would also record when a copy is printed and the user that makes the copy. Here is the code I have right now:
Code: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = False Sheets("Revisions").Unprotect Password:="Hm72K9" If ActiveSheet.Name = "Revisions" Then Exit Sub Application.EnableEvents = False
In A1 I have the time (military h:mm) 8:00 In B1 I have the 30 min braek we take at work 0.30 in C1 the end of shift time (16:00) In D1 total hours (formula : = sum(C1-A1)-B1
and it is OK EXCEPT if the employee has the day off. In that case A1 and C1 are empty but because of B1 I get in D1 the terrible ####
How can I remedy this ... this sheet cannot be edited in anyway. ( I cannot delete or edit anything)
Thought of an IF but the #### are not a value so I cannot do much in the way of conditional fprmats ... how not to show these #### when the sheet is printed.
Is there a way I can display the total of a column on each printed page?
I have a table which is about 6 columns long but is hundreds of rows down. I would like the total of one of these colums to be displayed on every printed page. Is this possible?
I make a lot of charts that have text boxes, or autoshapes in them. Often, the text boxes will be shifted in print preview. Even if they look right in print preview, they some times shift when being printed.
WYSIWYG, doesn't seem to apply
I've noticated that when viewing the spread sheet normally if I change the amount of zoom the text boxes/autoshapes will appear to move around, but what ever the position is for a given zoom amount, it will be same everytime.
Is there a "magic" zoom level that will display what will be printed, or are there some other tips to What-You-See-Is-What-You-Get in excel?
Cell 1A = Lot# Cell 1B = Last Name Cell 1C = First Name Cell 1D = Phone. I need Row1 to be repeated on each page. The list has about 200 names. We live in a senior community so the list changes quite often.
I am trying to print the file name as a header and the tab name as a footer automatically when i print an entire workbook. I am following the following steps:
File - Print - Entire Workbook - Preview
once I am in preview, I enter Page Setup and choose custom header (to print file name) and custom footer (to print sheet name). It works on some but not on all of them
I have a excel file to print label on a label printer.I've added additional file in this message.I'm printing different numbers of labels with this file.for example, if I print 10 pieces of labels, I want to write 1/10 , 2/10 , 3/10 etc. on each label.I finded a vb code to print this work but not exactly the way I want.I would ask one of excel guru's to look at my file.
I want to have a number on this label preferably counting back from the quantity of print. So if I select 300 copies to print, the first label shows somewhere 300, the 2nd label 299, the third 298 and so on.
I use a button and macro for printing selected labels, so perhaps the reverse printing could be added there if only counting up is available.
Also to make it easier, a cell on the sheet can contain the number to count down from (this is preferred on thinking about it) So I could then print 20 labels from 300 to 280 say.
