Ho necessità di cambiare il formato della carta da A4 a A3 per stampare PDF.
Ho fatto così, ma ovviamente non funziona
da debug vedo che il giro è corretto, però poi mi viene generato un documento in A4
Ho fatto così, ma ovviamente non funziona
Dim prn As New PrinterSettings
prn.PrinterName = nPrinter
Dim pkSize, pkSizeA3, pkSizeA4 As PaperSize
Dim isA3 As Boolean = False
For i As Integer = 0 To prn.PaperSizes.Count - 1
pkSize = prn.PaperSizes.Item(i)
If pkSize.PaperName.Contains("A4") Then pkSizeA4 = pkSize
If pkSize.PaperName.Contains("A3") Then
isA3 = True
pkSizeA3 = pkSize
End If
Next
If xDIM > yDIM And isA3 Then
prn.DefaultPageSettings.PaperSize = pkSizeA3
Else
prn.DefaultPageSettings.PaperSize = pkSizeA4
End If
HelperGIBEN.execCOMMAND(Path.Combine(My.Settings.ConvFolder, "SumatraPDF.exe"), " -print-to " & prn.PrinterName & " " & nomeFile, "SumatraPDF")
da debug vedo che il giro è corretto, però poi mi viene generato un documento in A4