Setting advanced printer settings with vba

[mountainfish]

Kudos to all who have asked and answered to get me this far. I can change all sorts of printer settings now in vba. It appears that I need to go deeper now.

I am trying to change deeper level advanced options and I am coming up dry.
If I go to -> file: print: printer properties: advanced: and then from here I need to change two things:

1. change Graphic: Print Quality from "300 x 300" to "300 x 600" dpi.
2. Printer Features: Print Quality from "text only" to "barcodes and graphics"
   
   
   
   

I have used successfully the Application.pagesetup code snippet to change things like: orientation, page size, margins, etc. But in this case I cannot figure out how to go deeper.

I do have the ability to change something that seems like it should work:
Application.PageSetup.PrintQuality = Array(300, 600)
This might actually be doing something, but I also need the "Text Only" to be changed. I am at a total loss for direction here.

Code below for additional detail.

Sub printerSettings()

Dim ws As Worksheet, ps As PageSetup
Set ws = ActiveSheet
Set ps = ws.PageSetup

'Application.Dialogs(xlDialogPrinterSetup).Show

If ws.Name <> "Sheet1" Then MsgBox ("Wrong Printer"): End 'Exit point in event of working on wrong sheet.

Application.ActivePrinter = "DYMO LabelWriter 450 Turbo on Ne03:"

With ps
.PrintArea = "$B$4:$B$5"
.BottomMargin = 0
.TopMargin = 0
.RightMargin = 0
.LeftMargin = 0
.Zoom = 100
.PaperSize = 126
.PrintQuality = Array(300, 600)
.Orientation = xlLandscape
End With

Call PrintStuff

End Sub

 

[rlv01]

But in this case I cannot figure out how to go deeper.

If I were trying to do what you are trying to do, I would use the macro recorder myself using the menus to do what I wanted to do. Then I would inspect the macro recorder VBA code to see what the correct syntax is to make the changes I want.