print using other printer than the default printer

[mark692]

hi guys i have this macro code

Range("Table24").Select
Selection.Copy
ActiveSheet.Cells(Rows.Count, 50).End(xlUp).Select
Do While ActiveCell = Empty
    ActiveCell.Offset(-1, 0).Select
    Loop
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

       
''put printer macro here

on the last part of my macro i want to put a code that will print my table, my problem is when i put this code

ActiveSheet.PrintOut

the worksheet is printed using my default printer. i want a code that will print my worksheet using my other printer. thanks

 

[Legacy 456155]

see Application.ActivePrinter
According to the webpage, "Returns or sets the name of the active printer. Read/write String."

 

[mark692]

see Application.ActivePrinter
According to the webpage, "Returns or sets the name of the active printer. Read/write String."

Ohh its kinda complicated to do

 

[mark692]

i have solved it thanks guys

 

[jolivanes]

I know you said that the printer problem is solved but just out of curiosity, what does this do?

ActiveSheet.Cells(Rows.Count, 50).End(xlUp).Select
Do While ActiveCell = Empty
    ActiveCell.Offset(-1, 0).Select
    Loop
    ActiveCell.Offset(1, 0).Select

 

[mark692]

I know you said that the printer problem is solved but just out of curiosity, what does this do?

ActiveSheet.Cells(Rows.Count, 50).End(xlUp).Select
Do While ActiveCell = Empty
    ActiveCell.Offset(-1, 0).Select
    Loop
    ActiveCell.Offset(1, 0).Select

that codes are part of my project on my worksheet :D it paste copied data to another table then print the table after pasting