Can you provide an example of what you are trying to do? Please provide any additional details.
first I would like to tank you for any re-play.... mean a lot ...
secondary below I place short code I don't want west your time by reading long code and trying to understand each line what will do....
sub PrintingLabelInZebra ()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.CutCopyMode = False
Dim myprinter,p As String
myprinter = Application.ActivePrinter
P = ThisWorkbook.Sheets("ToppersLabel").Range("G6").Value
On Error GoTo i:
Application.ActivePrinter = P
.......here I need code that allow me to change setting of width and high but I can't found anywhere so I come directly to this forum..
example here can be ..... change width of label from 10 to 5
..... 'rest of code