Hi Mike,
Try the following. Recording the code will give you the correct syntax and
printer name.
Turn on Macro recorder
In xl2007 select Microsoft button - Print - Print Select Printer etc.
In earlier versions of xl
Select File - Print
You should have the Printer Selection dialog box open.
Select the required printer. If the printer you want is already selected,
then select another one then re-select the required printer.
The Cancel button will change to Close
Click the Close button without printing
Stop macro recorder
You will record code something like the following.
Application.ActivePrinter = "Samsung CLP-310 Series on Ne00:"
If it was necessary to change from the already active printer and back again
you will see 2 lines of code.
--
Regards,
OssieMac
"mikegibson" wrote:
Ive been printing to a select area to PDF, using a VBA code and setting
my default print to a program I have installed, CutePDF Writer, using
this code (pressing Ctrl+T):
VBA Code:
--------------------
Sub printmy()
curPrtArea = ActiveSheet.PageSetup.PrintArea
myPrtArea = "A47:H133"
ActiveSheet.PageSetup.PrintArea = myPrtArea
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = curPrtArea
'
' printmy Macro
' Macro recorded 4/3/2010 by Mike Gibson
'
' Keyboard Shortcut: Ctrl+t
'
End Sub
--------------------
However I want to change the default printer back to my normal printer
and im struggling to write the code to continue writing to CutePDF
Writer, (even though its not my default)
VBA Code:
--------------------
Sub printmy()
curPrtArea = ActiveSheet.PageSetup.PrintArea
myPrtArea = "A47:H133"
ActiveSheet.PageSetup.PrintArea = myPrtArea
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = curPrtArea
Dim Ptr As Printer
For Each Ptr In Printers
If Ptr.DeviceName = "CutePDF Writer" Then
Set Printer = Ptr
Exit For
End If
Next Ptr
'
' printmy Macro
' Macro recorded 4/3/2010 by Mike Gibson
'
' Keyboard Shortcut: Ctrl+t
'
End Sub
--------------------
Anyone have any ideas?
Happy Easter!!
--
mikegibson
------------------------------------------------------------------------
mikegibson's Profile: 805
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=192865
http://www.thecodecage.com/forumz
.