Set Print Area

[Abdulkhadar]

Hello Excel Experts.........
I Want to print three rows information i.e C205, C206 & C207 after Last used B Cell in the below VB. or Print this three cells information on last page below the last B cell used.

Sub Button1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$" & Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Sheet1").PrintPreview
End Sub


Thanks in advance

 

[Yongle]

Try this

Sub Button1_Click()
   Dim cel As Range:   Set cel = Range("B" & Rows.Count).End(xlUp).Offset(4)
   cel.Offset(-3).Resize(3) = Array(Range("C205"), Range("C206"), Range("C207"))
   ActiveSheet.PageSetup.PrintArea = "$A$1:$N$" & cel.Row
   Sheets("Sheet1").PrintPreview
End Sub

 

[Abdulkhadar]

Try this

Sub Button1_Click()
   Dim cel As Range:   Set cel = Range("B" & Rows.Count).End(xlUp).Offset(4)
   cel.Offset(-3).Resize(3) = Array(Range("C205"), Range("C206"), Range("C207"))
   ActiveSheet.PageSetup.PrintArea = "$A$1:$N$" & cel.Row
   Sheets("Sheet1").PrintOut
End Sub

Thanks for rply sir,
I want just print that cells data only, it effects the above cells when i previw or print.
Is any idea to print only data at below last B cell used.
I think the information C205, C206 & C207 type in VB.

C205 to N205
C206 to N206
C207 to N207
are mereged cells
In my sheet upt 204 row all cells are locked except col B, C, D, G & M