I have this invoice spreasheet and I would like to when I excecute a macro to print, I would also like to use a PDFwritter to automaticly save/print the pdf file to a location and to ad the invoice number to the name like.
INV"current invoice here".
Bellow is the code I currently have. I am pretty sure this was done as I have some invoices saved but now it doesn't work.
Code:
Sub Check_Info()
If Range("AR1") = Empty Then
MsgBox "No Customer selected!", vbInformation, "Customer..."
Range("AR1").Select
I am trying to have a file print in legal size if I have 56 lines filled in otherwise print in regular letter size. Does anyone know how to write this in VBA.
with creating vb code that will select certain rows in a spreadsheet, set the print area to those rows and print them out, and then reset the print area back to default. The data is all on one sheet, but is split into 5 different areas, each below the next, with the column headers at the top of each. e.g.
and so on. At the press of a button it'll set the print area to the first section and print (the section includes the headers as well as the data). Then at the press of another button it'll set the print area to the next section. There could be any amount of rows of data in each section so it needs to cope with that.
Which created postscript files from Excel. I used to run this code while logged on as my predecessor, becuase only she had write permissions on the relevant file (C:Example). However, her account has now been deleted from the system - I have reset the permissions on the folder so that I can write to it, but the PostScript files created do not work - I get the error message that the file is corrupted and cannot be opened, or that there is a syntax error. The files used to work fine when logged in as my predecessor - could it be that? I have also tried to run the code on a different machine/on a different excel file and the problem still occurs.
I have 2 codes that set up different "print areas". Every time i run one of the codes the print area doesn't get set unless i run the same code again. So if i run code A which will set the print area with no issues and then right afterwards i run code B then code B's print area won't get set unless i run code B a 2nd time. And if i now i run code A, the same issue happens and the print area to Code A won't get set properly unless i run the code again.
Here is part of the code that discusses the print area:
I have 7 digit values in Col B12: down. I have sheets with names that match any one of these values. Is it possible for a macro to print all sheets in my workbook whose name matches one of the values in Col B cells 12:down??
I have some code to select a print area depending on wether or not there is data in a cell. The code I have so far partially works but not quite like I need it to. Here's what I have,
Sub selectprintarea() Select Case True
Case Range("C5").Value > 0 Range("A1:M47").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$M$47"
Case Range("Q5").Value > 0 Range("A1:AA47").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$AA$47"
End Select End Sub
It will select the print range if there is data in C5 but if there is data in C5 and Q5 it only selects the first print area. I know I need an "If - Else" or something of that nature but I cant figure that out. Also I need it to look at other worksheets not just the active one. I've tried a replacing the ActiveSheet with Worksheets (Sheet1). but that gives me an error.
I have a print code that I want to run on a loop. In column A Sheet UPSLabels, I have record numbers 1 through 94.
I have a vlookup in "C1" of another sheet that looks at the record number in "B1" and pulls in the correct information from UPSLabels based off the matchin record number in column A. I would like my code to print, update the number in "B1" by 1, and keep printing the records until it reaches 94.
I've probably supplied too much information, but the point is, I need the loop to run until "B1" reaches 94.
I have some code that Im trying to get to look at the sheets in my workbook and then based on if there is data in a cell and/or cells then select that sheet. Heres what I got so far thats not working. I get an error of Next without for.
I am having trouble setting print area on rows that can vary from 100 to 6000 rows. This code works good except that the print area cuts off the last row of data every time. "AreaBegin"=row 6 and "AreaEnd" = to last row after a set number of rows have been inserted based on a counter.
Basically how do I get this code to capture the last row for print area?
Sub SetArea() ActiveSheet.PageSetup.PrintArea = Range("AreaBegin", Range("AreaEnd").End(xlUp)).Address
I wish the print area to be set based on the number entered into cell "D58". My code so far is:
Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NumPages As Range Set NumPages = Range("D48") Worksheets("Sheet6").PageSetup.PrintArea = Worksheets("Sheet6").Range(0, 0).Resize(NumPages * 21, 47) End Sub
I have a print button on several sheets in a workbook. I have a code set for it so that when it is clicked, it will bring up a print dialog box. It looks like this...
Sub Button14_Click() Application.Dialogs(xlDialogPrint).Show End Sub
However, on one or two of the sheets, I would like a message box to also display when this button is clicked. The button is called Button14_Click()
Private Sub Button14_Click() MsgBox "Please print new signature cards for customer(s) to sign" End Sub
I have a really simple question - am tryingto print my VBA code, but want to print it as it appears in the VBA window, in colour (i.e. green comments, blue operations, etc). Is there a way to set it so the code prints in colour?
I am unable to print an office file to a certain printer because I am not the author of the file.. when I copy and paste to a new doc I can print no problem.
I have this data below in an excel worksheet. I'm using the ws.Cells(x,x).Value command to read values from the cells an print them out to a .prn fixed width file. However when it writes it to the .prn file my numeric fields don't have are not 0.00 but 0. And also the numeric fields are left justified I would like them right justified in the .prn file.
Excel Spreadsheet values
1.135.102/29/120.000.001.135.202/29/120.000.00
My output to .prn file looks like below:
1.135.1 02/29/12 0 0 1.135.1 02/29/12 0 0
I would like my output to .prn file to look like the following:
Am I able to call a macro when someone clicks "file" and then "print"? I have a macro ready to go, but I am unable to right click and assign a macro to the print button.
Instead of me saving a blank text file in the folder where the workbook resides, I would like it incorporated in the macro if possible. The name of the text file would be the value (string?) in cell B5.
Sub MakeTextFile()
Sheets("Sheet1").Select
Dim txt As String, r As Range Dim Answer As String, MyNote As String MyNote = "Do you have an empty text file ready in the" & vbCrLf & _ "folder where this workbook resides?" & vbCrLf & _ "This text file needs to be named" & vbCrLf & _ "ABCD.TXT"..........................................................................
I want to put an Excel workbook to pdf format and print it out at the click of a button located in the book. However, when I try to record the macro to get a feel for how to control pdf with Excel, I get a pdf file but no printout and no code to veiw!
I am trying to create a macro that opens a .pdf with the name of the pdf equal to a cell value. For a simple example: Cell "A1" contains the text "distinct" and I want the file prexisting file "C:distinct.pdf" to open when the macro is ran.
Column C (starting at row 5) contains hyperlinks. I want to print the linked file, move down to the next cell, print that file, move on to the next, etc. FYI - The worksheets are from a seperate file.
I am working on a userform in which user can select diffrent sheets for print. I want all selected sheets to be printed in a single pdf and it could be great if it not ask for a path to save file.
Is it possible to write vba code that will generate a text file with ALL changes that were made to an excel file. Ex. If Cell A17 = "Monday, June 4, 2012" and a user updates Cell A17 to "N/A", I would like to know what the value was before and after the udpate was made.
I have a spreadsheet where I want to require certain fields to be completed then I want to have that file auto emailed. I have learned that I do need to have the file saved before sending otherwise the data will not appear in the email, so with this I want to have the file temporarily saved emailed then the temp file deleted.
Here is the code I have so far but it errors on the blue text, I did change the TempFileName from = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") to = [C16] & "_" & [B6] & "_" & [D6]
Private Sub CommandButton1_Click() If Range("B6").Value = "" Or _ Range("d6").Value = "" Or _ Range("f6").Value = "" Or _ Range("E9").Value = "" Or _
I have a file that I save with a new version number each time I make major changes. The file name currently is: "Telephony Equipment Inventory v26 (Summary).xlsm". The "26" is the variable number. give me the vba code to ensure I open the file with the highest version number?
I have a macro that cycles through several student ID numbers and prints a progress report for each one. It works great, but I would like to add an option to pick which printer to use at the beginning of the code. In other words, when I run the macro, the printer box opens and I can pick the printer. When I click okay to print, the macro continues.
I have a workbook with many worksheets. All I want to do is print to PDF those that are visible (I can use just the code name number can't I?) and ignore those that are hidden. It seems simple enough but it will run and do nothing.
Dim sMsg As String, FName As Variant Dim myArray() As Integer Dim i As Integer Dim j As Integer
