Open Print Window To Change Printer And Select Number Of Copies?

Oct 5, 2011

The below code opens up the printpreview window. This does not allow to select the correct (or change) printer it will automatic use the default printer.

Is there a way for the code to open the print window so I can change the printer and select number of copies?

Code:

Sub Print_Button()
Dim ws As Worksheet, cell As Range
Set ws = Sheets("main")
Set cell = Range("g2000").End(xlUp)
Do Until cell.Value ""
Set cell = cell.Offset(-1, 0)
Loop
ws.PageSetup.PrintArea = ("A2:" & cell.Address)
ws.PrintPreview
End Sub

View 3 Replies


ADVERTISEMENT

VBA To Open Print Window

Mar 23, 2012

This code takes all the data from a listbox and throws it into a sheet so that I can print it. I would like the print window to open ready to print this one sheet but allow the user to make sure the right network printer is selected before hitting print.

Code:
Private Sub cmdPrint_Click()
Dim i As Long
Dim ws As Worksheet
If Me.lstPrintRooms.ListCount = 0 Then
MsgBox "The are no rooms in the list to print"

[Code] .........

View 2 Replies View Related

Capturing & Using Number Of Copies To Print

Jul 16, 2006

I would like to create a macro to enable a user to enter the number of copies to print, and then print that number of copies of a predetermined range in a spreadsheet. My InputBox routine works fine, but I don't know how to use the info I just captured. The code I have so far is as follows, but I guess I don’t know where this number is stored, or how to use it in a print statement. Needless to say, this routine doesn’t print the number of copies entered by the user.

Sub TestPrint()
' Ask user to input the number of copies to be printed.
Dim Message, Title, Default, MyValue
Message = "Please enter the number of copies to print" ' Set prompt.
Title = "Number of copies" ' Set title.
Default = "2" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
Sheets("PaidOut").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

View 3 Replies View Related

Automating The Number Of Copies To Print Based On A Range

Dec 11, 2008

Automating the Number of copies to print based on a range. ihave the following

View 3 Replies View Related

Macro To Print Number Of Copies Equal To Output Of Formula In Specific Cell?

Apr 21, 2014

I can assign a number of copies to print by adjusting ActiveWindow.SelectedSheets.PrintOut Copies:= , but what I want it to have the number of copies auto adjust to the value of a cell that contains a formula. I was hoping it would something as simple as Copies:=cell but no luck...

View 2 Replies View Related

VBA To Print To Printer That Is Not Default?

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

Print Each Worksheet To Printer Of Same Name

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

Select Worksheets Dialog Box - How To Change Code From Print To Send To Email

Sep 29, 2012

I am making custom time sheets to suit our agriculture business - these excel sheets get sent out to the different farm managers who send back in staff times.

This code below is brilliant and works perfect for our needs. However I need to be able to emailPDF the sheets not print.How / where do I change code so the selected sheets go to Save & Send via email as a PDF instead of going straight to the default printer .( hard copy )

VB:
Option Explicit
Sub SelectSheets()
Dim i As Integer
Dim TopPos As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet

[Code] .....

View 5 Replies View Related

Print To A User's Default Printer?

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

Macro Print To Default Printer

Mar 16, 2009

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 2 Replies View Related

Macro To Print To Specific Printer

Jun 15, 2009

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 2 Replies View Related

Print To Papersize A3 Or A4 To A Printer With Different Trays

Mar 6, 2014

I have done a userform which allows the user to select printing to each section(All, A, B or C) of the report to either paper size A3 or A4 looking something like below -

Print All A3 A4 (these buttons are option buttons)
Print A A3 A4
Prtint B A3 A4
Print C A3 A4

I have coded and part recorded a macro to change the paper size to either A3 or A4 depending on the user's selection.

The problem i have is if i take out the print command, it seems to change the paper sizes as it should but when i print it prints to the same size as the previous print i did, regardless of what was selected on the userform.

I have a printer with multiple tray sizes, and since I need to change paper sizes, I assume i need to change trays as well.

Below is the two macros -

'''''''''''''Set Print area and print to A3'''''''''''''''''

Private Sub PrintAllA3_Click()
Dim LastRow As Long
Dim LastCol As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
End With

[Code]....

View 2 Replies View Related

Print Sheet2 To Specific Printer

Feb 15, 2008

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 9 Replies View Related

Print Macro To Send To PDF Printer

Apr 8, 2009

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 9 Replies View Related

VBA Code To Print To Specfic Printer

Apr 22, 2009

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 9 Replies View Related

Print Out Spreadsheet In Dotmatrix Printer

Aug 28, 2006

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 3 Replies View Related

Print Macro: The Data To Be Printed To Another Printer

Dec 15, 2008

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 3 Replies View Related

Print Labels To Continuous Roll Printer

Dec 4, 2006

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 9 Replies View Related

VBA Print Preview Code Causes Crash If No Printer Installed

Aug 23, 2009

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 2 Replies View Related

Ask User To Select A Printer [{}]

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

Print Entire Workbook + Multiple Copies Of Single Sheet

Apr 16, 2009

This is probably a VBA thing, but there might be a simpler solution. Either would be grand!

Basically, I have a four sheet workbook that needs to be printed out in its entirety (no problem doing that ); however, I would like the final sheet (called "Room Data") to be printed, let's say ten times.

So basically I'd get a single print of the first three sheets and ten of the "Room Data".

Any ideas on how to do this without having to manually print the final sheet multiple times or creating ten identical sheets in the workbook?

View 3 Replies View Related

2 Copies Of The Same Workbook Open In Task Manager

Oct 3, 2006

I have had some problems closing down a workbook that I have. During a save and close.

A duplicate file appears and causes considerable time delay...sometimes even causes a windows crash. I can't find the source of the problem, but I have noticed that in the Windows Task Manager, the file is there as well, yet not visible on the screen.

View 9 Replies View Related

Change Default Printer

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

Change The Printer Proprties Using VBA

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

Macro / Paste Into Open Workbook Copies Sheets

Oct 1, 2013

I am trying to have a macro that separates a list with unique values in column a, copy the results, open a file name in column AG, and then paste the copied stuff into the open workbook.

Currently, it runs, but when I copy to the new sheet, the thing I want goes where I want it to, but I also get an extra sheet1. how can i change this so the sheet1 doesn't get pasted in?

Sub MC()
Dim r As Long, rng As Range, ws As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Name = "Sheet1"
With Sheets("Sheet1")
Sheets.Add().Name = "temp"

[code]....

View 1 Replies View Related

Print The Worksheet On Different Paper Which Requires To Go Into The Properties And Change The Paper Source From Automatically Select To Manual Feed

Jun 30, 2006

When I hit the print button the worksheet prints on the paper in the bin. However, there are times when I need to print the worksheet on different paper which requires me to go into the properties and change the paper source from Automatically Select to Manual Feed. I have been trying to created a macro what will switch to Manual Feed, print the worksheet and then switch back to Automatically Select but have been unsucessfull.

View 3 Replies View Related

Excel 2010 :: How To Apply Print Titles To Print On Select Pages

Dec 10, 2012

Using Excel 2010: I have 2 rows (A4:J4 & A5:J5) selected as print titles that I would like to be printed at the top of selected pages. Currently, my document is 3 pages long, and I would like to have the print titles only applied to the first 2 pages. More data will be added in the future on pages 1&2 but the last page (whatever page number it ends up being) should not contain the selected print titles.

View 2 Replies View Related

Macro Change The Name Of The Worksheet It Copies

Sep 27, 2008

i created a sheet and called it "Original" (which somehow is a template), in another sheet i created a big Button named "Create account" ,then i created a macro which copies that "Original" sheet and by default it names it "Original 2 " now that i need a new account each time i click that button to create a new sheet and rename it by the client name i need, in order to keep the "Original" intact as a template. It happens sometimes by mistake that i rename the "Original" one ( The template one) which therefore returns an error when i click the button!

Is there anyway to add to that macro a code which rename that "Original 2" something else lets say "Account" to differentiate it from the Template one?

Or to Protect only the "Original" sheet from being renamed out of the whole sheets i have , in order not to rename it accidentally?

View 9 Replies View Related

Workbooks Open In Same Window

Feb 4, 2014

I have a workbook open. When I try to open a separate workbook, it opens already opened workbook (basically linking the workbooks as one). I want to have my workbooks on two separate screens this is preventing that. How to unlink these workbooks.

View 1 Replies View Related

Excel VBA - How To Get ID From NEW OPEN IE Window

Apr 21, 2014

I'm trying to find an ID from a new open Internet Explorer Window.

I know that the ID that I'm trying to search for is "rBeginMonth_BeginDate", but my code always says that it's empty.

The code below is partially of what I've done.

[Code] .....

View 1 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved