diff --git a/QuestPDF/Drawing/FreeCanvas.cs b/QuestPDF/Drawing/FreeCanvas.cs
index 251c9d1..70051ba 100644
--- a/QuestPDF/Drawing/FreeCanvas.cs
+++ b/QuestPDF/Drawing/FreeCanvas.cs
@@ -17,7 +17,7 @@ namespace QuestPDF.Drawing
             
         }
 
-        public void BeginPage(Size size)
+        public virtual void BeginPage(Size size)
         {
             
         }
diff --git a/QuestPDF/Drawing/SizeTrackingCanvas.cs b/QuestPDF/Drawing/SizeTrackingCanvas.cs
new file mode 100644
index 0000000..5c2e3b7
--- /dev/null
+++ b/QuestPDF/Drawing/SizeTrackingCanvas.cs
@@ -0,0 +1,16 @@
+using System.Collections.Generic;
+using QuestPDF.Infrastructure;
+
+namespace QuestPDF.Drawing
+{
+    internal class SizeTrackingCanvas : FreeCanvas
+    {
+        private readonly List<Size> _pageSizes = new();
+        public IReadOnlyList<Size> PageSizes => _pageSizes;
+
+        public override void BeginPage(Size size)
+        {
+            _pageSizes.Add(size);
+        }
+    }
+}