Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Change The Printer Proprties Using VBA


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 Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Change Default Printer
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 Replies!   View Related
Choosing Specific Printer In Vba
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 Replies!   View Related
Printer Detection Macro In VBA
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 Replies!   View Related
Set VBA For Default Printer
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 Replies!   View Related
VBA Code And Cutepdf Printer
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 Replies!   View Related
Install Network Printer Via VBA
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 Replies!   View Related
VBA Code To Print To Specfic Printer
I have a macro that prints out several worksheets. My problem is that I want to print these worksheets to a specific color printer. There are many different users and most of them will have a black-and-white printer setup as their default. I want to be able to print using the ip address of the color printer.

I have tried setting the active printer using:

Application.ActivePrinter = "\WP010110.117.3.36"

with little luck... This seems like such a simple thing! I have done a lot of research and can't find a good solution although I have seen the question raised several times!

Ozgrid has been a great source of information and solutions in the past. Please help again!


View Replies!   View Related
Way To Set The Printer's Properties Using VBA
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 Replies!   View Related
Reset Default Printer Settings In Vba
We have printer mailboxes setup for all of the employees and sometimes the print settings get saved in the excel files. This means that when another employee uses the file their prints get sent to the wrong mailbox. We have hundreds of files like this and it causes all kinds of problems with prints going to wrong mailboxes!
Obviously their default print settings are all set to their own mailboxes.

Is there some way, using vba, to get an excel file to go back to using the user's default printer settings instead of the ones saved in it's file? (or get it to remove the printer settings saved in it's file). That way I could just make an application level open event to fix the problem! Either that or some way, in vba, of changing a user's storage box number for a specific printer.

View Replies!   View Related
VBA Print Preview Code Causes Crash If No Printer Installed
activesheet.printpreview , Excel crashes if there are no printers installed on the machine. How can i check for printers before calling the printpreview, or else stop the program from crashing?

View Replies!   View Related
Selecting A Printer
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 Replies!   View Related
Choosing A Printer
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 Replies!   View Related
Find Active Printer
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 Replies!   View Related
Ask User To Select A Printer [{}]
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 Replies!   View Related
Active Network Printer
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 Replies!   View Related
Print Each Worksheet To Printer Of Same Name
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 Replies!   View Related
Set Printer To Cell Value
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 Replies!   View Related
Identify Default Printer
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 Replies!   View Related
Printing Two Sheets On Duplex Printer
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 Replies!   View Related
Printing To A Cute Pdf Printer
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 Replies!   View Related
Go Back Too Default Printer Each Time
I have my buttons working, but I need too have it return to the default printer after a button is used. If I send it too PDF it will not let me print it. Is there a way too go back too default printer each time?

View Replies!   View Related
Macro To Print To Specific Printer
I am trying to swith between different printers to print out sheets within a single workbook. Recording the macro doesn't work very well and the code I found online doesn't work either (error: object doesn't support property).

How can I set this up to be a dynamic printer setting?
Code I tried:

View Replies!   View Related
Macro Print To Default Printer
i have a macro that loads a userform for previewing and printing selected sheets. The macro works fine for previewing sheets but when i choose the print button the marco trys to save the file as a .mdi, i want this to select the default printer on the pc instead, the excel file will be onpened on many different pcs so the printers will be different on each machine, hence why i want a default printer selected. This is the section of code from the form

View Replies!   View Related
Print Sheet2 To Specific Printer
What code can I write to print Sheet1 and Sheet2 on specific Printer and Sheet 3 to another printer, then all other sheets to another printer.

View Replies!   View Related
Bring Back Complete Printer Name
create an array of active printers. I edited the code to write the array to a range, then populate a data validation list with the printer names. All works great. The goal was to select a printer name from the list and run a macro to print some sheets. However, the function doesn't bring back enough of the name to do this. how to edit the function to bring back the whole name.

For example: after running the function the 1st printer returned ="\rizzoHQ-ENG-04"...when i record a macro to print to this printer it needs ""\rizzoHQ-ENG-04 on Ne05:". Here is the function unedited, I bolded the part i think is controlling the name:

View Replies!   View Related
Print Out Spreadsheet In Dotmatrix Printer
I have developed one file for invoice printing using VBA coding.

When i take print out from excel workbook the print out is comming in Windows Font (i want like Dos prompt printing).

I want to take printout in Dot matrics printer for invoice printing and the print out has to come like Lotus123 spreadsheet print out (dos mode).

is it possible to get print out like Lotus123? If possible can u please tell me how to change the printing property in excel spreadsheet.

View Replies!   View Related
Hp Printer Prints Blank Pages
When printing an Excel workbook/Worksheet that has been emailed via Lotus notes 7.02 the print job is all blank pages - PrintPreview is normal and correct - Page Breaks are set correctly - The correct number of pages are printed but, ALL Pages are blank. The printer is an HP 6310 All-in-One connected locally via USB. If Printed to Adobe, ALL pages are correct and can be printed on the HP 6310. If another printer is selected (ie: Any Network Printer) the results are the same. This occurrs only on certain spreadsheats received from only a few users.

View Replies!   View Related
Print Macro To Send To PDF Printer
I want to automate (with the click of a macro button, or hot key sequence) is to:
· take a pre-set print area (which is always the same – 1 page wide x 1 page tall)
· send to the printer
· select the PDF printer from the list (not the default printer for the computer)
· Automatically change the save PDF file name to “(Cell A1) – Weekly Update – (Today’s Date).pdf”
· Change location to save file on Desktop

Feels like a pretty lofty goal for a macro to do all of that – please let me know if that is even possible to set up.

View Replies!   View Related
Print To A User's Default Printer?
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 Replies!   View Related
Print Macro: The Data To Be Printed To Another Printer
I have the following code to print a selection of data which is fine but i need to have in the code a different printer. So, for example my default printer needs to stay the same but when this spreadsheet is open i need the data to be printed to another printer.

View Replies!   View Related
Print Labels To Continuous Roll Printer
We have a an existing spreadsheet which uses a query from Excel to Sage Line50 Accounting software to create labels for stock items. The number of times a label is printed is dictated by the number of items that are required for a particular sales order.

For example -
1006abc 100 No.
2003abc 20 No.

The program would produce 100 labels for item code 1006abc, and would produce 20 labels for item number 2003abc.

However we have recently acquired a heavy duty industrial printer which prints to labels on a continuous roll and I am unable to alter the spreadsheet to work with the new printer layout.

I have attached the spreadsheet and, I hope, the VBA code. PLease also see this link to my previous post - Print Labels Dependant on Content

View Replies!   View Related
Using VBA In Patch Model To Change VBA In User Model
I have some Excel models out in the field with some old VBA code that is now causing problems. I regularly develop 'patch' models to make updates or repairs to user models, but need the VBA code syntax to get into a Worksheet module and change one line of VBA code.

The worksheet is named 'Forecast' and I need to change line 5 of my VBA code.

The vast majority of my users are on Excel 2000. I remember the security issues with newer Excel versions and can walk then through that, but I forgot the code syntax I need to get the job done.


View Replies!   View Related
Change Selection With VBA
My user wants to change it so that, when the word "Triang" is selected from a dropdown box on each line the formatting goes back to none......or ClearFormats.

Can this be done with a Worksheet_selectionChange or similar.
I can't even get my head around this at the moment.
What the user is saying is, if the Formats haven't been cleared on certain lines, the user of the sheet hasn't addressed the needs for that particular line.

For r = lrow To 15 Step -1
If Range("M" & r).Value "" = True Then
Range("N" & r).Value = "Triang"
Range("N" & r).Interior.Color = vbRed
Range("V" & r).Value = "Triang"
Range("V" & r).Interior.Color = vbRed
End If
Next r

View Replies!   View Related
Change Extension In Vba
change extension in vba

i am a positive rookie and i need help.
i know a little programming but i understand it even i dont write anything.
i know is wrong what i write here but i express my idea on how i want it to be.

View Replies!   View Related
VBA Worksheet Change
On my Sheet, A4,A5 are positive numbers, I would like to write some code that watches a Range of Cells ("B5:B35") which are entered as negative numbers. The person cannot enter more negative values than there are positive. I know how to write the msgbox, and go from there. I would like some help with how to write the code to make sure no one uses more time than allowed. This is difficult to explain but I can add more if you would like.

View Replies!   View Related
VBA Refuses To Change Cells
I'm trying to clear one set of cells when a change is detected in another, but my VBA function refuses to change the cell values.

Attached is a stripped-down version of the sheet & code which manifests this problem.

The affected cells are unlocked etc, and the code is correct -- at least, it correctly gets to the proper range (or cells) on which to call (in my various attempts) ClearContents, .value="", etc. So the problem is not the algorhithm passing the variables but in the specific attempt to change a sheet's cells' values.

View Replies!   View Related
Change TAB Color With VBA
What I would like to do is to have the color of a tab change as the dependant upon the value of one or more cells.

View Replies!   View Related
Change Cells If Colored (vba)
I've got two adjacent columns. D and E.

I want to do the following for each row (starting from row 2) :
If D is empty and E has a grey background color - I want the value from E to be copied to D.

I'm very new to VBA, so I don't really know how the syntax works.
This is what I've got so far ^^


Public Sub ReplaceIfColor()
If ((Range(2, E).Interior.ColorIndex = 15) & (Range(2, D)=0)) Then
.Replace D.Value, rngCell.Offset(, 1).Value, LookAt:=xlWhole



View Replies!   View Related
VBA - Change Posting To Different Worksheet
Adjust this code to output the differences in WS3 instead of WS2. I'm having trouble changing the worksheet in the code.

Ta in advance. Chuf

Sub CompBelowCol()
Dim ListA As Range
Dim ListB As Range
Dim c As Range
WB1 = ActiveWorkbook.Name
WS1 = "EE"
WS2 = "13"
WS3 = "New Order"
Set ListA = Workbooks(WB1).Sheets(WS1).Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Set ListB = Workbooks(WB1).Sheets(WS2).Range("M1:M" & Cells(Rows.Count, "M").End(xlUp).Row)
For Each c In ListB
If c.Value "" Then
If Application.CountIf(ListA, c) = 0 Then
With Cells(Cells(Rows.Count, "T").End(xlUp).Row + 1, "T")
.Value = c
End With
End If
End If
Next c
End Sub

View Replies!   View Related
Change A Cell Reference Using VBA
Complete and utter newbie here, so I will apologies now if what i am asking is a simple thing or complete nonsense..

I have a spreadsheet which has links in it to another file/spreadsheet.

What i need to do is update/edit those links so that they point to another file and cell reference. Can this be done using a macro? or is this something that cant be done using macros/vba?

New to all this so am just getting to grips with it..


View Replies!   View Related
Vba To Change Named Ranges
I was given the
What I am looking to do is have a range of cells that I have named to be used in a data validation for a drop down box. I have named the cells and would like to have the user name the cells by typing in the name into one cell.

For example

Cells F10:F14 are named "orange" right now (typed in cell F9)
I would like the user to be able to change the name of the cells to whatever they want by changing the cell in F9 - i.e. "banana" and the range is automatically named banana so the data validation can search for Banana instead.

The

Dim oldName

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Rng As Range
Set Rng = Range("F9")
If Not Intersect(Target, Rng) Is Nothing Then
Range(oldName).Name = Range("F9")
ActiveWorkbook.Names(oldName).Delete

This Code works great for 1 range - but I have 30 - I can't seem to figure out how to copy it etc for the other 30 ranges.

View Replies!   View Related
VBA Worksheet Change Event
trying to get a worksheet change event to work. Basically the code below calls the time_start procedure when cell J16 downwards is selected.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 15 And Target.Column = 10 Then

Call time_start
Else
End If

End Sub

However, I am lost from here on....Let me try and explain what it is I am trying to do. This seems so simple if you know how. Each time that the word "Completed" is entered in to a cell from J16 onwards, the cell two columns to the right on the same row is selected and the current date is entered.

If the word "Completed" is deleted, I want the date on that row to be deleted.

I would also like the choices "Completed" and a blank cell to be given in a validation list via a dropdown if possible to avoid occurances of "Complete" etc and mis-spellings but I understand that a bug may stop me from using this functionality. I am running Excel 2002 on a Windows XP Professional OS.

View Replies!   View Related
Change To Proper Case In VBA
I found this bit of Worksheet_Change code to change the target area to UpperCase. This works fine.

If Not Intersect(Target, Columns(2)) Is Nothing Then
Set rng1 = Intersect(Target, Columns(2))
Set rng2 = Intersect(ActiveSheet.UsedRange, rng1)
For Each cell In rng2
If cell.Formula "" Then
cell.Formula = Format(cell.Formula, ">")
End If
Next cell
End If
I could not find anything telling me what the ">" means. I'm assuming that it is a special symbol/wildcard for UCase in VBA.

My question(s), is there a symbol for ProperCase so I can use the same code, just making it change the Target column to Proper? Also is there a list of the special symbols.


View Replies!   View Related
VBA To Change A Particular Cell Version 2
In a previous thread I asked for a solution to the following problem

Cells
A1 = 1
A2 = 2
A3 = 3
A4 = 4
etc.

What I want to do is when I click on cell A1 the value is put in cell C1.
When I click on cell A2, C1 changes to to A2 value and so on.

VERSION 2
The VBA I received is good for 1 range.
Is there a way to use multiple ranges? In my example above column A is the 1st range and cell C1 changes accordingly. Now i would like to use column B as a 2nd range and have cell D1 change accordingly.

View Replies!   View Related
Conditional IF AND Formula, Change It To VBA
I am trying to understand VBA codes. Actually I wrote a formula with IF and I want to change it to VBA because it is so long and creates some problems. It is too important for me =IF(AND(0<C6;C6<9);"0";((IF(AND(8<C6;C6<14);(C6-8)*(8,4);((IF(AND(13<C6;C6<10000);(5*8,4+(C6-13)*(26,45));" ")))))))

The logic is like that, this program will calculate an amount.
btwn 0 and 8 days, it is free
btwn 9 and 13 days, 8.4 euros per day
after 13 to infinity, 26.45 euros per day

Therefore for example for 10 days, you have to pay 2*8.4 = 16.8 euros
for 14 days, 5*8.4 + 2*26.45 = 92.9 euros

View Replies!   View Related
Change Default Color With VBA
I am setting the fill color of a cell by setting the .Interior.Color property and using the RGB() VBA function. My VBA code saves the spreadsheet in Excel2003 format at the end of the creation process. This has worked great and my spreadsheets looked correct when reopened in Excel 2007. When these same spreadsheet files are opened in Excel 2003 the colors are all very different. Does Excel 2003 handle colors differently than Excel 2007? Is there a preferred way to specify colors that will work on both platforms?

I have attached a specific example. The color is #B4CF27 or RGB(180, 207, 39). When I open this sheet in Excel 2007 the color is a shade of green (the desired color). When I open it on Excel 2003 I get yellow. I tried swapping the red and blue values thinking there might be some byte ordering issue and it does not produce the yellow on Excel 2007.

View Replies!   View Related
Change Cell And Font Color Using VBA
This appears to be so simple, I've searched the forums and have found almost the right VB code but not quite.
I have a 3000 row spreadsheet with various columns.
Column M can either be PASS, FAIL, REJECTED, IN PROGRESS or NOT ASSESSED.
I need the rows (A to M inclusive) to change colour and text colour dependent on this condition.

I almost had an answer with Select.Case but I couldn't get the formula to work with text, only numbers.


View Replies!   View Related
Edit/change A Formula In A Cell Using VBA
How to edit a formula in a cell using vba code.
For example, the cell A1 in sheet "sheet1" contains formula "=sum(Sheet2!B1+Sheet3!B1)" and I would like to use VBA to edit/change it to "=sum(Sheet2!B1+Sheet3!B1+Sheet4!B1+Sheet5!B1)" and so on


View Replies!   View Related
Vba To Change Color Of Selected Cell
As an example:

Cells C7:F7 are currently shaded light green. Cells G7:L7 are shaded light blue. M7 is shaded dark blue. N7:Q7 are shaded light yellow and R7:T7 are shaded light gray.

When any cell in that range (C7:T7) is clicked (selected), I want the cell color to change to it's normal color; like light yellow to yellow, light blue to blue, dark blue to blue, light green to green and finally light gray to gray.

These cells represent headings for a database. When a heading is selected, the database will sort by that column and the header will change colors. I can do the sort code.

If another header is chosen, the previous selection will need to revert back to it's lighter color and the new selection will change as above... so only ONE cell will be changed from it's "normal state" color at a time. This will serve as an indicator as to which column is being used for the sort. To the user, it will have the appearance of switching on and off.

If any other cell on the sheet is selected, then this should not trigger an event change.

View Replies!   View Related
VBA To Insert Row On Data Change
I have rows of data with each row going from column A to column P

They are sorted by column A (account No.)
I need to insert 2 blank rows between each change in account No.


View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved