Domanda Stampa crystal report

dushantha

Utente abituale
22 Luglio 2017
156
16
verona
2013
3
Buonasera,

avrei bisogno di un aiuto per stampare crystal report.
Io uso questo codice per stampare. Ma anche se lo cambio nome del stampante stampa sempre stampante che ho impostato come default.

Doc.printoptions.printname= “nome stampante”
Doc.printtoprinter(1,false,0,0)

grazie.
 

gianniXX

Utente junior
5 Settembre 2020
30
6
2000
0
pensionato autodidatta, se può essere utile, anni fa ho fatto un programmino che doveva stampare dei dati, e dovevo cambiare stampane secondo se stampavo da casa o da negozio, ti invio questo codice, provalo è creato con vb.net 2003


Visual Basic:
Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog
  


Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        PrintDialog1.Document = PrintDocument1
        Dim result As DialogResult = PrintDialog1.ShowDialog()
        If result = DialogResult.OK Then
            PrintDialog1.PrinterSettings.PrinterName = PrintDialog1.PrinterSettings.PrinterName()
            Label5.Text = PrintDocument1.PrinterSettings.PrinterName
            SetDefaultPrinter(Label5.Text)
        End If

    End Sub
    Public Shared Sub SetDefaultPrinter(ByVal printer As String)
        Dim wScriptType As Type = Type.GetTypeFromProgID("WScript.Network")
        Dim wScript As Object = Activator.CreateInstance(wScriptType)
        wScriptType.InvokeMember("SetDefaultPrinter", BindingFlags.InvokeMethod, _
        Nothing, wScript, New Object() {printer})

    End Sub
 
Ultima modifica di un moderatore:

gianniXX

Utente junior
5 Settembre 2020
30
6
2000
0
mi sono scodato di dirti che dvi creare un button per cambiare stampante , una label per vedere stampante selezionata, poi devi importare
imports system.io
system.reflection
system.drawing.printing
system.drawing
system.drawing.font
 

gianniXX

Utente junior
5 Settembre 2020
30
6
2000
0
mi sono scordato di dirti che devi inserire questo altro codice

Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument
Me.PrintDialog1 = New System.Windows.Forms.PrintDialog

il programma mio funziona benissimo oggi, se ti manca altro codice quando do il comando di stampa te lo invio
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!