From ca692ceab1f4625655b466270384fa28615a42de Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 30 Apr 2025 17:02:16 +0200
Subject: [PATCH] Scan, etc.

---
 VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb | 2 +-
 VERAG_PROG_ALLGEMEIN/frmScan.vb                        | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
index 84d6a60f..26e92587 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
@@ -996,7 +996,7 @@ Public Class cMDMFunctionsAllgemein
                                 Dim _width = pdfReader.GetPageSizeWithRotation(page).GetRight(0) / 2 'Mitte
 
                                 'Workaround!
-                                If _height > 2000 Then
+                                If _height > 1500 Then
                                     canvas.SetFontAndSize(bf, 45)
                                     _height -= 70
                                 End If
diff --git a/VERAG_PROG_ALLGEMEIN/frmScan.vb b/VERAG_PROG_ALLGEMEIN/frmScan.vb
index 755b00c9..369673dd 100644
--- a/VERAG_PROG_ALLGEMEIN/frmScan.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmScan.vb
@@ -243,8 +243,8 @@ Public Class frmScan
         'startScanTimeout()
         startScan()
 
-        'cboFormat.SelectedIndex = cboFormat.FindStringExact("A4")
-        'If cboFormat.SelectedIndex > 0 Then cbxAltFormat.Checked = True
+        cboFormat.SelectedIndex = cboFormat.FindStringExact("A4")
+        If cboFormat.SelectedIndex > 0 Then cbxAltFormat.Checked = True
 
 
     End Sub