[parara]

Γεια σε όλους

έχω τον παρακάτω κώδικα

Sub Order_PrintLocalMachine()
Dim rngReceipt As Range
Dim rngTitle As Range
Dim PrintRng As String
Dim LastRow As Long

With ActiveSheet
.Shapes("SendToGrp").Visible = msoFalse 'hide send to group
LastRow = .Range("P99999").End(xlUp).Row 'Last Row
Set rngReceipt = Range("$p$3:$U$" & LastRow)
Set rngTitle = Range("ak2:ak6")

.PageSetup.PrintArea = Union(rngTitle, rngReceipt).Address
.PrintOut , , , False, [LocalPrinter], , , , False
End With

End Sub


η εκτύπωση γίνεται σε δύο σελίδες
γνωρίζει κάποιος πως μπορεί να γίνει η ένωση των δύο περιοχών ώστε να εκτυπώνονται σε μία σελίδα


ευχαριστώ