Flyt markering i Printdialogbox

Du kan bruge denne funktion før du vælger udskriv

ActiveSheet.PageSetup.PrintArea

Hvordan mener du?
Sub Test()
Application.ScreenUpdating = False
    Range("B2:K32").Select
    ActiveSheet.PageSetup.PrintArea'Her eller hvad?
    Application.Dialogs(xlDialogPrint).Show 'viser Dialogbox "Udskriv"
    Range("B2").Select
end sub

Jeg har fundet det, det var under Sideopsætning, hvor man vælger Udskriftsområde, tusind tak

Ja.
Har forsøgt at få makroen til at tage det allerede markerede som printområde, men kan ikke få det til at virke.
Hvis det altid er b2:k32 kan du lave det sådan
Sub Test()
Application.ScreenUpdating = False
    ActiveSheet.PageSetup.PrintArea= $B$2:$K$32
    Application.Dialogs(xlDialogPrint).Show 'viser Dialogbox "Udskriv"
    ActiveSheet.PageSetup.PrintArea = ""' For at slette printområdet igen
    Range("B2").Select
end subr at

Det kmjk mener er sikkert at hvis du sætter printArea = det markerede område får du samme effekt.

Sub Test()
  Application.ScreenUpdating = False
  Range("B2:K32").Select
  ActiveSheet.PageSetup.PrintArea = Selection.Address
  Application.Dialogs(xlDialogPrint).Show  'viser Dialogbox "Udskriv"
End Sub

Ja
noget lignenden dette
Sub Test()
  Dim Omr as Range
  Application.ScreenUpdating = False
  Set omr = Selection' dette virker ikke
  ActiveSheet.PageSetup.PrintArea = omr
  Application.Dialogs(xlDialogPrint).Show  'viser Dialogbox "Udskriv"
End Sub

Sub Test()
  Dim Omr As Range
  Set Omr = Range(Selection, Selection)
  ActiveSheet.PageSetup.PrintArea = Omr.Address
  Application.Dialogs(xlDialogPrint).Show  'viser Dialogbox "Udskriv"
  ActiveSheet.PageSetup.PrintArea = "" ' For at slette printområdet igen
End Sub