mountainfish
New Member
- Joined
- Apr 29, 2022
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
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:
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
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:
- change Graphic: Print Quality from "300 x 300" to "300 x 600" dpi.
- Printer Features: Print Quality from "text only" to "barcodes and graphics"
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