Scan, etc.

This commit is contained in:
2025-04-30 17:02:16 +02:00
parent 7713060873
commit ca692ceab1
2 changed files with 3 additions and 3 deletions

View File

@@ -996,7 +996,7 @@ Public Class cMDMFunctionsAllgemein
Dim _width = pdfReader.GetPageSizeWithRotation(page).GetRight(0) / 2 'Mitte Dim _width = pdfReader.GetPageSizeWithRotation(page).GetRight(0) / 2 'Mitte
'Workaround! 'Workaround!
If _height > 2000 Then If _height > 1500 Then
canvas.SetFontAndSize(bf, 45) canvas.SetFontAndSize(bf, 45)
_height -= 70 _height -= 70
End If End If

View File

@@ -243,8 +243,8 @@ Public Class frmScan
'startScanTimeout() 'startScanTimeout()
startScan() startScan()
'cboFormat.SelectedIndex = cboFormat.FindStringExact("A4") cboFormat.SelectedIndex = cboFormat.FindStringExact("A4")
'If cboFormat.SelectedIndex > 0 Then cbxAltFormat.Checked = True If cboFormat.SelectedIndex > 0 Then cbxAltFormat.Checked = True
End Sub End Sub