scan fix A4

VERAG_PROG_ALLGEMEIN/frmScan.vb

@@ -266,6 +266,11 @@ Public Class frmScan
     Private Sub picboxScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click
         'startScanTimeout()
         startScan()
+
+        cboFormat.SelectedIndex = cboFormat.FindStringExact("A4")
+        If cboFormat.SelectedIndex > 0 Then cbxAltFormat.Checked = True
+
+
     End Sub
 
     Sub startScan()