Run Macro When File Print Is Clicked?
Sep 11, 2012Am 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.
View 3 RepliesAm 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.
View 3 RepliesI have a print macro that works very well, but the files print randomly and I have to put them on order as they print. Is there a way these could print in order?
VB:
Sub Batch_Print()
Dim Input_Dir, Print_File As String
Input_Dir = InputBox _
("Input directory path containing the files to print")
' Defines Print_File equal to the first Microsoft Excel file found
[Code] .....
Excel 2010.I'm using this code to print user's accessing a file:
[Code] .....
However as someone could just delete the printed user log in the Sheet2, and also you can't use this if you protect the sheet, which defeats the purpose.
I want it to print the log into a separate file. Can I add in the file path/name to this code somewhere?
I have a userform where the user clicks a command button to select a gif/jpeg using the getopenfile function, the file path a is then loaded in to a text box and loaded in an image. I noticed that when the user cancelled before selecting a file it caused a crash. I have added some code to prevent this but now it crashed when an image is selected.
[Code] .....
if i double click to open a xls file (excel not open) then excel opens but doesn't load the file i just clicked on?
View 9 Replies View RelatedI 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.
I need a code for "click-able button" in my excel sheet that will call makro "copy" which I have connected with ThisWorkBook /Sub copy() .../ or in other case with Modules (module 7 for example).
So, what to add between this:
Private Sub CommandButton1_Click()
?
End Sub
I have map shape in my excel sheet. each country is a shapes on its own. If i Select one of the country i want to display a pop up Box. For examle if i select Americas I need it to display another box with some data and when i deselect it it should hide the box. Tried some code over here but does not work.
Sub HideShowRectangle()
With ActiveSheet.Shapes("Data1")
If ActiveSheet.Shapes("Americas").Select = "True" Then
.Visible = True
Else
.Visible = False
End If
End With
End Sub
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] ....
I have a spreadsheet with near 300 tabs, each with a picture in the tab. The main tab has a list of all other tabs, the goal is to allow the user to click on a cell next to an entry, and have Excel flash the referenced tab to allow the user to see what the entry is referencing. I have written a simple macro that activates a desired tab, unhides it, displays a message box to pause the macro, rehides the tab, then returns the user to the main tab.
Rather than creating a macro for all 300 tabs and creating buttons I would love to use the Private Sub Worksheet_SelectionChange(ByBal Target As Range) or some variation thereof, to make my life much easier. The name of the tab is in cell A2, so I would want to have the user click on cell A1, activate the macro, then take A1 to A2 with something like A1 = A(x+1)->A2, then display the tab listed in A2. So rather than have 300 macros with Sheets("XYZ").Visible = True, I would love it to read Sheets(contents of referenced cell).Visible = True. with the contents of referenced cell coming from some manipulation of the cell I clicked on...
What in the world did I do now? When I click on any cell, the cursor turns into a thick "+" . Then, when I move my mouse up and down the spreadsheet, all the cells the "+" touches become highlighted.
View 9 Replies View RelatedI 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.....
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 RelatedI 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
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 RelatedIs it possible to print a PDF file from a macro? I want to have the pdf file specified by the user in a form to print when the macro is activated.
View 9 Replies View RelatedI know this has been discussed a number of times, but here is my problem
I have three charts in my workbook. I want to attach a macro so that when the chart is clicked it returns to Sheet - Home. I have using the following:
worksheets("Home").activate. But after I protect each chart and the workbook, and save and exit. When I reload the Workbook it has forgotten the assigned macros and nothing happens.
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
[Code] ........
I inherited the following code from my predecessor:
ps_filename = "C:Example" & which_area_name & Cells(j, 6)
Sheets(sheets_name).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, Collate:=True, prtofilename:=ps_filename
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 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.
View 1 Replies View RelatedI 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:
1.135.1 02/29/12 0.00 0.00
1.135.1 02/29/12 0.00 0.00
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!
View 9 Replies View RelatedI 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.
View 3 Replies View RelatedColumn 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.
View 2 Replies View RelatedI 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.
I am trying to print from excel a text file of a sheet data, creating the text file works but I need to have it encoded as UTF8?? Here is the code I have to print.
[Code] .....
Not sure if I need to add something to this or do I have to open the text file in Notepad and do the convert to UTF8 there?
With this macro i print nine sheets. If there is one missing, excel gives a warning that the document cannot be found. I want excel to go ahead with the following document.
View 4 Replies View RelatedI need code to print a file located in my C drive.
View 6 Replies View RelatedI have a technician who sits a desk over, has the same brand of computer running the same Windows 7 and the same Excel 2010, but when he opens a particular file the page layout or print area seems to change so that the sheet is partially cut off. All his options appear the same. I can open this file on other computers and it seems to be fine...
I notice that the Margins under Custom Margins are different and this would explain the problem but not why it occurs. It's a file I created and saved and he opened. Why would the margins change? Is this one of the Microsoft cross platform / program deals where if he changes the print set-up or page layout in WORD for example, it changes them in EXCEL?