Sending printer codes from Powerpoint slide

I'm not clear what your asking here.

It seems like your dealing with powerpoint slides.  In which case the best option is to create a Template.  If you edit your master template then you don't have to edit each slide individually.  

If this is Excel and I'm just misunderstanding the question, then the easiest way to get the exact code you want is to record a macro and look at what it generates.

In order to help you properly we need to know what version of Excel your using as their are differences in the VBA.

My own experiance is that the code block below can be reduced to only change from default the values you want changed.

I'm sorry I can't be more helpful, but I'm not sure I'm understanding the question fully.


Here is what I got:
Sub Macro1()
'
' Macro1 Macro
' test
'
' Keyboard Shortcut: Ctrl+t
'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
End Sub

I tried the code you sent, but it hangs up at the first command "Application.PrintCommunication = False"
We use ppt because we can set up a background from a scanned copy of our label, then position the data we want to print in the blank space on the label. We also have a batch number that we add to the label to indicate the month made followed by a year code "E" then a 5 digit batch number. We are usually printing 10-200 labels for this batch. We may also have some one-gallon labels to print for this same batch. We have a different slide that has a gallon size background set up. To keep from printing the background colors with the description and batch number we set the transparency to 100%

GFD-5022-5.ppt

Here is a gallon label template. We are using Office 2007. I also illustrated some of the steps before printing.
GFD-5022-11.ppt
Steps.docx

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.