Create SetPrintArea.vb

Vitosh · Nov 16, 2015 · e2b4066 · e2b4066
1 parent a1f4452
commit e2b4066
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/SetPrintArea.vb b/SetPrintArea.vb
@@ -0,0 +1,18 @@
+Public Sub SetPrintArea()
+
+    Dim r_print_range           As Range
+
+    Set r_print_range = tbl_plan.Range(Cells(1, 1), Cells(obj_plan.LastLine, obj_cal.RightColPosition))
+
+    With tbl_plan.PageSetup
+        .LeftHeader = ""
+        .CenterHeader = "&""Calibri,bold""&25" & "Ankaufsunterlagen"
+
+        .PrintArea = r_print_range.Address
+        .FitToPagesWide = 1
+        .FitToPagesTall = 1
+        .Orientation = xlLandscape
+
+    End With
+
+End Sub