From c9e40c5d5150a1068d9f6d20c84119b493c79afc Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Oct 2023 17:10:53 +0200 Subject: [PATCH] Speicherung der PDFs auf C:\VeragTMP\USER_ gelegt --- SDL/kunden/usrcntlFiskaluebersicht.vb | 2 +- VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/SDL/kunden/usrcntlFiskaluebersicht.vb b/SDL/kunden/usrcntlFiskaluebersicht.vb index 39707784..12cbe8a0 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.vb +++ b/SDL/kunden/usrcntlFiskaluebersicht.vb @@ -934,7 +934,7 @@ Public Class usrcntlFiskaluebersicht If Not checkWebsite(txtHomepage.Text) Then Exit Sub - Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(txtHomepage.Text) 'UU langsam.... + Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(txtHomepage.Text, DATENVERVER_OPTIONS.TMP_PATH & Guid.NewGuid().ToString() & ".pdf") 'UU langsam.... DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", "Website", kdNr) Dim fi As New System.IO.FileInfo(pdf) diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 81536dcb..5d47c1b3 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1354,9 +1354,10 @@ Public Class cFormularManager doc.PageSettings.Orientation = Spire.Pdf.PdfPageOrientation.Landscape doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.FitSize, True) + ' doc.PrinterName = printerName ' doc.PrintDocument.Print() - + doc.SaveToFile(targetPath) End If