Excel Macro Code to select Print Selection.

[MarcGib]

Hi all, Im very new to using Macros in Excel and was wondering if somebody could help me with coding to achieve automation of my printer function.

Thus far I have managed to print the required info to my GX430t label printer, using the above code, however, I have no idea how to auto select in SETTINGS "Print Selection" Only print the current selection"

Thank you.

 

[frabulator]

Sub PrintTheSelectedArea()
    Selection.PrintOut Copies:=1
End Sub

 

[MarcGib]

Hi Frabulator, thank you for the code. When running the code, will that bypass our default Printer setting of "Only print the active sheets" and select "Only print the current selection"?

Before our process involved populating the required data, Opening PRINT PREVIEW, selecting ZDesigner GX430t and then selecting "Only print the current selection" and then finaly Printing the label.

thanks

 

[frabulator]

will that bypass our default Printer setting of "Only print the active sheets" and select "Only print the current selection"?

The code I posted above will only print the selected using the default settings. You can only have something selected on the active sheet, so yes, it will only print the active sheet and yes it will only print the current selection.

Opening PRINT PREVIEW, selecting ZDesigner GX430t and then selecting "Only print the current selection" and then finaly Printing the label.

All of that can be automated. Please read here.

In my example I include the copies needed. You can include any variable/amount of variables you want or need.

expression.PrintOut (From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

Using the code you posted I patched together the following. It should be enough to get you started. I do not know the exact name of your printer; VBA is very specific. You need to have everything correct in the quotations. Capital letters and spaces can sometimes screw you over.

Sub PrintTheSelectedArea()
    Dim myPrinter As String
    myPrinter = "ZDesigner GX430t"
    'need to select what range you want to print
   
    Selection.PrintOut Copies:=ActiveSheet.Range("B5").Value, collate:=True, ActivePrinter:=myPrinter
   
End Sub

PS:
If you do a quick google search for what you are looking for and include "VBA Excel" at the end of the search query, it will usually bring up some good information !

 

[MarcGib]

Thank you for all the tips, advise and effort. Really appreciate it. I will get cracking a little later.