edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Warenort_ Anhang

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-16 10:31:47 +02:00
parent 101b33759b
commit 44691ccfea
6 changed files with 34 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/usrcntlAktDetails.vb
View File

@@ -1,12 +1,12 @@
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports System.IO
'Imports Gemeinsames.cDatenbank
Imports System.Drawing
Imports Microsoft.Office.Interop
Imports System.IO
Imports System.Security.Cryptography
Imports GrapeCity.DataVisualization.TypeScript
Imports Microsoft.Office.Interop
Imports Microsoft.Reporting.WinForms
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Public Class usrcntlAktDetails
@@ -361,7 +361,7 @@ Public Class usrcntlAktDetails
btnOptionen.Enabled = False
btnLkwBeleg.Visible = False
'tbcntlVermerke.TabPages.Remove(tbAnhang)
Button18.Visible = False
Button18.Visible = True ' Berechtigung freigegben 16.04.26
btnDipoListeEmail.Visible = False
btnLZDruckDIGITAL.Visible = False
@@ -3729,8 +3729,22 @@ Public Class usrcntlAktDetails
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("EPSON", True)
rpt.Document.Printer.PaperKind = Printing.PaperKind.Custom
'If printer <> "" Then
' 'rpt.PageSettings.PaperKind = Drawing.Printing.PaperKind.Custom
' 'rpt.PageSettings.PaperName = "BON80X200"
' 'rpt.PageSettings.PaperWidth = 3.15F
' 'rpt.PageSettings.PaperHeight = 7.87F
' 'rpt.Document.Printer.PrinterName = printername
' ' rpt.Document.Printer.PaperSize = New GrapeCity.ActiveReports.Printing.PaperSize("Custom", 800, 2500)
' ' rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
'End If
''rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
'rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize = New GrapeCity.ActiveReports.Printing.PaperSize("Custom", 800, 2500) ' ps.PaperSize '.SetPageSettings(ps)
If sender Is Button8 OrElse printer = "" Then
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)