VBA code to change printer settings

[cresswell80]

Hi all,

I need some code that will allow me to change the printer settings - the setting i want to change is the paper type (plain to letterhead).

I plan to have 2 buttons on my toolbar - one that prints letterhead and one that prints on plain...any ideas?

I've tried using sendkeys btw, but didn't work!

Thanks

 

[cresswell80]

anybody any ideas? i've been experimenting with code but to no avail!!

 

[Andrew Poulsom]

This seems to be a relatively easy way:

http://exceltips.vitalnews.com/Pages/T0293_Specifying_a_Paper_Tray_in_a_Macro.html

 

[cresswell80]

seems theres no code to specify printer settings.. the link above was using sendkeys which i can't get to work...

can anybody pick anything wrong with this??:

Sub SET_LETTERHEAD()
    '- change Printer setting to LETTERHEAD
    Dim AltKey As String
    Dim CtrlKey As String
    Dim ShiftKey As String
    Dim TabKey As String
    Dim EnterKey As String
    Dim DownKey As String
    Dim PgUp As String
    Dim UpKey As String
    Dim EscKey As String
    '--------------------------
    AltKey = "%"
    CtrlKey = "^"
    ShiftKey = "+"
    TabKey = "{TAB}"
    EnterKey = "~"
    DownKey = "{DOWN}"
    PgDnKey = "{PGUP}"
    UpKey = "{UP}"
    EscKey = "{ESC}"
    '--------------------------
    '- open print dialog 'File/Print'
    SendKeys AltKey & "(FP)", False
    '- delay 1 second
    'Application.Wait Now + TimeValue("00:00:01")
    '- open printer properties
    SendKeys AltKey & "(P)", False
    '- move along tabs to paper
    SendKeys CtrlKey & PgUpKey, False
    '- 6 tabs to paper type
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    '- change to Letterhead
    '- assuming currently set to plain
    SendKeys DownKey, False
    SendKeys DownKey, False
    SendKeys DownKey, False
    SendKeys DownKey, False
    '- Enter twice to print page
    SendKeys EnterKey, False
    SendKeys EnterKey, False
    'Reset to plain
    SendKeys AltKey & "(FP)", False
    SendKeys AltKey & "(P)", False
    SendKeys CtrlKey & PgUpKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys TabKey, False
    SendKeys UpKey, False
    SendKeys UpKey, False
    SendKeys UpKey, False
    SendKeys UpKey, False
    SendKeys EnterKey, False
    SendKeys EscKey, False
End Sub

thanks

 

[Andrew Poulsom]

The link suggested adding a printer for each paper tray you want to use. Then you just need to specify the printer in code.