Un saluto a tutti.

E' il primo messaggio in questo forum ? Bene. Via subito con un problema "strano".

VB6 e Crystal Rports 7.

Il problema è il seguente.
Ad un cliente ho creato due applicativi (USANDO GLI STESSI STRUMENTI) che attraverso l'OCX di Crystal permettono di vedere in anteprima le stampe e poi effettuare la stampa vera e propria.
Su un applicativo scelgono la stampante, con gli strumenti messi a disposizione da Windows e/o da Crystal, e stampa realmente li sull'altro applicativo invece stampa sempre sulla stessa stampante, a prescindere che la si metta come predefinita o meno.

Cosa può essere ?

La loro rete, che non ho fatto io, è composta da un server Windows 2000 (se non erro) e da N computer con XP. Sono inoltre collegati in terminal server con un'altra sede.

Stesso problema anche dall'altra sede.

Non sono un sistemista e dall'alto della mia ignoranza chiedo : è possibile impostare sul server che un applicativo stampi sempre sulla stessa stampante ?

Sono nelle vostre mani, io non ho idee.

Grazie in anticipo.

Oscar

Non so se puo' essere d'aiuto, ma io per impostare la stampante ho fatto cosi (usavo word per stamapre, ma dovresti riuscire anche con Crystal o al limite con qualche classe di sistema)

Public Class PsFromWord
Public Shared Sub Genera(ByVal doc As String, ByVal output As String)
Try
'seleziono la stampante da usare dai settings
Dim printer As String = My.Settings.PdfPrinter
'definisco un oggetto in cui salvare la stampante di default dell'utente
Dim DefaultPrinter As Object
Dim objword As New Word.Application
objword.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
Dim objdoc As New Word.Document
objword.Visible = False
objdoc = objword.Documents.Add()
'mi salvo la stampante predefinita attuale
DefaultPrinter = objword.ActivePrinter
'imposto la mia stampante
objword.ActivePrinter = printer
'stampo
objword.PrintOut(, , , output, , , , , , , True, , doc, , , , , , )
'reimposto la stampante precedente
objword.ActivePrinter = DefaultPrinter
objword.Quit()
DefaultPrinter = Nothing
objword.DisplayAlerts = Word.WdAlertLevel.wdAlertsAll
objword = Nothing
objdoc = Nothing
Catch ex As Exception
ML.ErrorHandler.ScriviEventLog("Word2PS", String.Format("Errore conversione da {0} a {1}", doc, output) _
+ vbCrLf + ex.Message, EventLogEntryType.Error)
End Try
End Sub
End Class

p.s. la classe in questione stampava un documento word su un file postscript

Ciao. Max.

Ciao Max.

Grazie per la risposta ma ... il codice che hai scritto non è in NET ?
Io uso VB6.

Se ho male interpretato scusami.

Oscar

in realta' si, e' vb.net, ma direi che con pochissime modifiche puoiusarlo anchein vb6.

in fondo gli oggetti word.application li puoi crare anche in vb6...

dovrai magari cercare un modo diverso per salvare la stampante predefinita attuale e reimpostarla, ma non credo ci siano enormi differenze.

Non ho un vb6 installato al momento, altrimenti avrei fatto un paio di prove.

Scusami
Max.

Rileggendolo meglio direi che puoi quasi fare un copia-incolla. Sembra di leggere quasi codice VBA.

Grazie ancora per l'interessamento.

Quella che tu suggerisci è una soluzione che andrò ad implementare se non riuscirò ad individuare la causa scatenante del problema.

E' la prima volta che mi si presenta una situazione simile ma non si sa mai e quindi vorrei capire il perchè. Il perchè avendo usato gli stessi strumenti e avendo installato sugli stessi PC, da un programma funziona e dall'altro no.

Per ora l'unica spiegazione che mi sono dato è la seguente.
Quando creo un programma per un cliente chiedo quale sarà la stampante sulla quale andranno a stampare principalmente. Mi installo i driver del modello e creo la stampa su quella stampante.
Quando ho realizzato il primo programma non avevano ancora questo fotocopiatore/stampante della Kyocera e quindi le stampe le avevo impostate su un'altra stampante.
Non vorrei che il problema sia dovuto ai driver di questo bestione che hanno adesso.

Ho modificato una stampa impostandola sulla mia stampante e le ho detto di provare.

Sono in attesa.

Speriamo.

Ciao Oscar

E' come scrivevo nel precedente messaggio : impostata la stampa sulla mia stampante invece che sulla loro funziona.
Stampano dove vogliono.

Grazie a tutti.

Ciao Oscar