Install Network Printer Via VBA
Jul 26, 2007
I have a new workbook that needs to be printed to a specific printer regardless of who the user is. I am happy with the method used for doing this using the PrintOut function, but am trying to work out what to do in the event that the user does not have this printer installed. The logic, not in true VBA syntax, is as follows;
' Check Printer
If <This Printer> Is installed Then
Printout using <This Printer>
Else
Install <This Printer>
Printout using <This Printer>
I found a useful post about ascertaining whether or not a printer is installed, but can't find anything about actually installing a printer via VBA.
View 7 Replies
ADVERTISEMENT
Oct 30, 2008
Is there a way to test for an active default network printer?
In my module the code sets the paper size and a few other printer settings, if my default network printer is down or offline the code fails.
If I could test for active default printer I could remove this error.
View 9 Replies
View Related
May 18, 2007
I am having trouble printing a page to both a local printer (which works fine) and a network printer (which does not work) Both printers are installed on the Computers. The error message I get when I try to run the macro is Run-Time ERror '1004': 'ActivePrinter' of object'_Application' failed. The codes that I have used are
Application.ActivePrinter = _
"\SAUWTPFS01.sopac.pilkington.netDespatch Toughend & Batch reports (L164) on Ne05:"
and
Application.ActivePrinter = _
" \sauwtpfs01pauwtp0305 on Ne05:"
and
Application.ActivePrinter = _
" \sauwtpfs01pauwtp0305"
It works on the day I record the macro. As soon as the next day comes around I get the error message. When I click debug it is these lines that are highlighted in yellow. I have looked at this for several days on and off and I always get the same error.
View 7 Replies
View Related
Sep 14, 2006
I am running a fairly complex simulation at work and have quite a few different functions in it. For the simulation to work properly, i need to have the Solver add-in and the Analysis ToolPak installed. Everytime that i try and use the simulation on a different computer (or if anyone else tries to run it) the add-ins must be enabled again. Is there a way to set up a macro to enable them when either i open the simulation (first preference) or when a button is pressed (2nd preference).
View 5 Replies
View Related
Sep 14, 2007
Has anyone ever used InstallShield to install an Excel Add-In?
View 2 Replies
View Related
Nov 7, 2011
I was wondering if there was a way to use the Workbook_Open() event in Excel to install specific references. I tried to record a macro, and then open the VBA editor and then see what code it showed to install, but there was no code in the macro
I tried:
Code:
With Workbook.reference
.AddFromFile "C:WINDOWSsytem32.stdole2.tlb"
End With
Which is just giving the location of the reference I want to install, and It gives a debug error of Run Time Error 424 Object Required
View 9 Replies
View Related
Feb 23, 2007
I found this code in the posts to automatically install the Analysis ToolPak at Open.
Private Sub Workbook_Open()
AddIns("Analysis ToolPak").Installed = True
End Sub
I tried this in the workbook module but it doesn't seem to work. Is this code correct or have I done something incorrectly?
Also, are there any drawbacks to an automatic install of an add in like this and if it runs the code every time the workbook opens, is there any performance issues (maybe only opens a bit slower)?
View 9 Replies
View Related
Jun 6, 2009
I am running Excel 2007 on my Windows Vista laptop. A workbook I've developed in Excel 2007 (compatibility mode) on my Windows Vista laptop has a macro that runs as expected on my laptop but will not run on my desktop which is running Windows 2000, Excel 2000.
I've addressed this question previously under the thread "Macro Bombs Excel 2000". I've not received a response as to why it won't run under Windows 2000, Excel 2000. I don't know if it's an Operating System issue or an Excel 2000 issue.
I'm developing this workbook for my children for their personal financial management. I'd like to determine if this is an Excel 2000 issue or an Operating System issue. Most of my children run Windows XP, Office 2000. I have a dual system on my laptop (Vista and XP).
I have a legal software license available for Office 2000. My question is, can I load Excel 2000 on my Vista, Office 2007 laptop. I've looked at http://support.microsoft.com/kb/218861/ and they talk about installing oldest versions first. I have Excel 2007 already installed. I don't particularly want to uninstall it. Can I install Excel 2000 without uninstalling Excel 2007?
1. Can it be done?
2. Can it be done without MAJOR operational issues.
3. What is the process?
4. Can I load ONLY Excel 2000?
View 3 Replies
View Related
Mar 23, 2014
how to retrieve Install date of Windows from registry (or form any where else). I know this date is saved in key "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionInstallDate", I used RegRead but it return "0" (zero)
View 6 Replies
View Related
Apr 16, 2006
Finally after 3 days of intensive studying VBA, my first add-in pack is ready to be installed in the office. I've got my custom form all ready, now all I need is to have excel create a custom button on the toolbar that calls up my custom form when clicked.
The idea of assigning a shortcut key doesn't really appeal to me. I'll be packaging it up in .xla format. Would be greatful if anyone can direct me on how to add a button to call up my form (only one form in fact).
View 2 Replies
View Related
Jan 7, 2010
The code below first asks a user to input a weekending date (which must be a Saturday). The value of the input box goes to cell C1 of my spreadsheet. That part works fine. I also have a function in Cell G1 with the function:
=TEXT(C1, "dddd")
I don't know if this is the best way to test for a Saturday but it is what I have,
Where is goes bad is if the date is not a Saturday. I have a loop to force a new date install via a input box but it won't update C1 with the inputed data to recheck for the Saturday value. Below is the whole code I am working with...
Dim aa As String
Dim bb As String
If Range("C1") = "" Then
Do While bb = ""
bb = InputBox("Please Enter a Weekending Date!")
Loop
Range("C1").Value = bb
End If
If Range("G1") "Saturday" Then
Do While aa "Saturday"
aa = InputBox("Weekending Must Be a Saturday. Please Enter a New Weekending Date")
Loop
Range("C1").Value = aa
End If
View 9 Replies
View Related
Feb 17, 2009
I have finally come up with a macro and would like to install it to around 10 people's "Personal Workbook" in my department. Let me explain a bit further...
We use web-based software which has an "Export to Excel" option which we all use. The resulting data populates into a spreadsheet automatically.
I would like the user to be able to click on Tools/Macro/Run Macro and then run that particular macro. I assume that this macro should be in the "Personal Workbook" so that the macro will be visible no matter what worksheet they may have open?
Can this be done automatically/with a macro or must this be manually done?
I"m using Excel 2003.
View 14 Replies
View Related
Jun 6, 2007
I want the user to be able to choose a printer but not print at that time.
1. Store the active printer as a variable using application.activeprinter
2. Have a dialog box (the printers available) popup and have them choose one, then store that
3. I know how to do the rest, but I will have the word document print out with the selected printer, then use the application.activeprinter reset to the original one
View 9 Replies
View Related
Oct 16, 2007
Is there a way to set the printer's properties using VBA?
Sometimes we set the printer for BEST quality to do photos or brochures. Well if we don't change it back, when we go to print a spreadsheet, it takes forever because it is set on best quality.
So......
I want to be able to set the print properties to normal using VBA.
View 9 Replies
View Related
Sep 30, 2008
I need an assistance in setting up a VBA for the default printer in my office. The issue is I want my spreadsheet to be set up to wherever I open the spreadsheet at any computers in the facility. I want the sheet to be printing out directly at the printer in my office only. Is there a way to do this?
View 9 Replies
View Related
Jan 12, 2009
I have a form that all the salespeople use. The last thing in the process is to print the completed form to a specific printer. I recorded a macro to get the proper name of the printer but I am finding out that it records differently for each computer. Is there a way around this?
View 9 Replies
View Related
Nov 23, 2006
I have a quality form that is produced from data on an Excel log file. I was wondering if it is possible to select a different network printer based upon the value of a certain cell.
I understand how to print using the local machines local printer but our quality department is located at one site and these forms need to be printed at our other locations.
View 3 Replies
View Related
Jun 5, 2014
I have a spreadsheet where I am trying to print barcode labels. The barcode is found in cell A1. I have looked in a lot of places and I can't really figure out exactly how to do it. This is the code that I have so far but it gives me an error. The printer name should be right. Some of this code I just copied from another thread.
[Code].....
View 4 Replies
View Related
Feb 5, 2009
how to automate the printing of Excel sheets each with a different name to a Cute pdf printer?
I have a VBA procedure which uses Windows API calls to write to a system ini file (which I understand is a necessary requirement of the Cute software), which loops through all the sheets I need to print, and sends them one by one to a Cute pdf printer. However each time the 'print' instruction is invoked - I say print but of course this is really a file save process, the Save As dialog box pops up asking the user to confirm the save.
What I want to achieve is the file gets saved automatically, with the relevant sheet name with no confimation dialog box.
View 9 Replies
View Related
May 17, 2009
I have got a buttion that changes various layout and borders for the page then shows a printpreview, after printprewiew closes.
Then a msgbox that askes if you would like print. Is there a way to change the defult printer between local printer and adobe distiller(.pdf) as a dropdown option box. Or Yes for Local printer and NO for adobe distiller(.pdf) using vbYesNoCancle.
View 9 Replies
View Related
Jun 13, 2009
i have a workbook system that is used on 25 standalone machines that all have different printers everytime i install on a new system i have to reconfigure all of the printers that i have set up in VBA i am curious to find out as to whether or not there is a macro i can use that will generate a list of all printers on a machine that i can then use to refrence a printer name in my VBA
View 3 Replies
View Related
Jan 2, 2007
I have a file for which I wish only selected pages to be printed, so I have disabled the print function in the ThisWorkbook module. Instead, the user chooses from a menu of available sheets to print, via a user form, and then requests the print.
I've got most of this sussed in my mind, but the users need the option of which printer to use (loads of networked printers available and the choice will depend upon monochrome for draft print or full colour for final print), so I want to be able to call up the printer dialog box using
Application.Dialogs(xlDialogPrint).Show
BUT!!!!
I want all the options on the dialog box disabled, except for the choice of printer as clicking OK after choosing the printer adds the active sheet to the list of items to print.
View 2 Replies
View Related
Jun 16, 2007
In my program I want some labels to be printed on printer P661 (black/white) and other labels on printer P656 (color).
Q: is it possible to do this in vba for my code?
The labels are made in Word and printed from within Excel.
Sub PrintNACL_LABEL()
Dim oWord As Object
Dim sPath As String
Dim iCnt As Integer
sPath = ThisWorkbook.Path & Application.PathSeparator & "NACL_LABEL.doc"
iCnt = Val(InputBox("Hoeveel exemplaren?", "NACL_LABEL", 1))
If iCnt >= 1 Then
Set oWord = CreateObject(Class:="Word.Application")
With oWord.Documents.Open(sPath)
.PrintOut Background:=False, Copies:=iCnt
.Close False
End With
oWord.Quit False
End If
Set oWord = Nothing
End Sub
The specific printers in the network are:
Color ---> "\PlantijnP656 op Ne00:"
Black/white ---> "\plantijn2000oldP661 op Ne02:"
View 9 Replies
View Related
Nov 22, 2007
i am using windows xp, and i am printing from a matrix printer, so i go to file then print then on the top right of the dialog box it say properties, and i go there to change the printers speed and darkness, the i click ok to print.
View 9 Replies
View Related
Mar 5, 2009
I have excel printing some sheets to pdf and it works fine on my PC. WHen someone else tries to print it wont work because they arent on "Adobe PDF on Ne02:"...they maybe on Ne03 or Ne08 or ne05...you get my point.
I saw code on here before as to how to find the proper "port" but after a bit of searching, i cant find it again.
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:"
View 9 Replies
View Related
Apr 14, 2009
I have a workbook with 150-some-odd sheets, each with a store number. I would like to loop through each sheet & print that sheet to the printer with the same name in my printers & faxes queue.
(eg. sheet 9604 would print to printer name oki9604)
View 9 Replies
View Related
Sep 30, 2004
how to identify in code which installed printer is set as the default printer? I can set/switch printers easily enough but don't seem to be able to identify the default printer as opposed to the active printer...
View 6 Replies
View Related
Jun 2, 2006
I'm trying to save excel files as pdf using vba code and the cutepdf printer. If I do this manually it works, but when I write code it saves the output to a file that cannot be read or opened
Unfortunately I don't have access to the pdfdistiller so can't use this technique which I've seen described in a number of forums.
The code I've used is below.
[PHP]Sub pdfing()
Dim cntTrue As Long, cnt As Long
Dim rng As Range, bk As Workbook
Dim fName As String
Dim WB As Workbook
Dim FundName As String
Workbooks.Open ("S:SRQFSFCWNames")
Range("A1").Select
Do
FundName = ActiveCell.Value
fName = Dir("S:SRQFS" & FundName & ".xls")
Do While fName <> ""
Workbooks.Open ("S:SRQFS" & fName), UpdateLinks:=0
cnt = cnt + 1
fName = Dir()
Application. ScreenUpdating = False
Loop
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Range("A3:X3").Select
ActiveWorkbook.Save
View 4 Replies
View Related
Mar 30, 2009
Is if possible to set up two different sheets in the same workbook to print as front and back pages on a duplex printer?
View 7 Replies
View Related
Feb 17, 2009
Is there a Macro to automatically print the selected print area (print area is also established within the macro itself) to a user's default printer; whatever that printer may be? Note that this printer and/or printer name could change depending on the user.
I would like this to actually select and print to the default printer without Excel having to ask you. I don't even want the "OK" box to show up if possible. I just want them to run the macro, execute all it's duties, and print, all in 1 shot.
View 3 Replies
View Related