Scan, etc.
This commit is contained in:
@@ -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
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user