[VBA] Ορισμός περιοχής εκτύπωσης με vba

[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


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


ευχαριστώ

[ChrisGT7]

Καλησπέρα Διονύση,

Από όσο γνωρίζω, διαφορετικές περιοχές εκτύπωσης δεν μπορούν να ενωθούν σε μια σελίδα.

Βρήκα ένα θέμα στο διαδίκτυο που περιγράφει έναν τρόπο πως μπορεί να γίνει σε μορφή φωτογραφίας.