Printing Code Not Working . .

[Evagrius Ponticus]

Hi All,

Don't know why this isn't working - I stepped through it and it seems to make sense? Thanks,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'MsgBox Me.ListBox1.ListIndex
Dim LR As Integer
LR = Sheets("XY").Range("B" & Rows.Count).End(xlUp).Row
Sheets("XY").PageSetup.PrintArea = Range(Cells(1, 1), Cells(LR + 1, 50))

Sheets(Me.ListBox1.ListIndex).PrintOut Copies:=1, Collate:=True
End Sub

 

[RoryA]

PrintArea is a string:

Sheets("XY").PageSetup.PrintArea = Range(Cells(1, 1), Cells(LR + 1, 50)).Address

 

[Evagrius Ponticus]

WHAAAAA! I should have known!! I was going crazy tyring to figure out what was wrong with the code - Thanks Rorya.