Excel :: Andrea
Pubblicato da Alexsandra su Febbraio 13, 2008
Questa sezione è riservata a Andrea prego gli altri utenti di postare quì consigli, suggerimenti esempi ma non altre problematiche…. Grazie ••• Ritorna alla pagina precedente •••
Questo è il quesito posto:
ho creato un programma di fatturazione. Ogni fattura viene salvata esternamente in una cartella (C:\fatture\fattura1.xls,fattura2.xls etc.). Ora avrei bisogno di ristampare una determinata fattura però senza aprire il file esterno. Cioè avrei bisogno di creare un commando che una volta selezionato il numero della fattura mi stampi il file esterno senza però aprirlo. Come dovrei fare?
Alexsandra detto
Mi dovresti dire come fai a salvarle (il codice) e poi per poterle scegliere dovresti avere un listbox in cui selezionare la fattura che vuoi stampare.
dammi più info.
Andrea detto
1) Per salvare uso il seguente codice (dove C11=numero fattura):
Dim A As String
A = “Fatt-” & Range(”C11″).Value
Sheets(”FATTURA”).Copy
ActiveWorkbook.SaveAs Filename:=”C:\FATTURE\DOCUMENTI EMESSI\2008\FATTURE\” & A & “.xls”, FileFormat:= _
xlNormal, Password:=”", WriteResPassword:=”", ReadOnlyRecommended:=False _
, CreateBackup:=False
2)Per aprirle uso il seguente codice
Private Sub CommandButton4_Click()
Dim X As String
Dim PATH As String
PATH = “C:\FATTURE\DOCUMENTI EMESSI\2008\FATTURE\”
If ActiveCell.Column = 1 And ActiveCell “” Then
nome = “Fatt-” & ActiveCell
X = PATH & nome & “.xls”
Set fs = Application.FileSearch
With fs
.LookIn = “C:\FATTURE\DOCUMENTI EMESSI\2008\FATTURE\”
.Filename = nome
If .Execute() > 0 Then
Workbooks.Open Filename:=X, ReadOnly:=False
Else
MsgBox “La Fattura Immediata n° ” & ActiveCell & ” non è stata trovata! ” ActiveCell.Select
End If
End With
Set fs = Nothing
End If
End Sub
Non utilizzo un listbox. Le fatture vengono salvate esternamente in una cartella ma alcuni dati (numero fattura, intestazione fattura, data emissione, totale fattura, data scadenza etc) vengono salvati anche internamente in un foglio (FATTURE 2008).
Quando ho bisogno di visualizzare una fattura (solo per vedere gli articoli venduti visto che il resto dei dati è salvato in FATTURE2008), vado al foglio FATTURE2008 seleziono il numero della fattura (1° collona del foglio FATTURE 2008) e la apro utilizzando il codice nel punto 2.
Ora avrei bisogno di creare un altro CommandButton che mi mandi in stampa una determinata fattura (file esterno) senza però aprirla.
Alexsandra detto
mi era “scappata” la tua richiesta Andrea. Il file lo devi aprire, ma lo puoi fare in maniera “silent” cioè in modo che l’utente non si accorga del tutto. puoi associare al tuo commandbutton una form con un listbox che carica tutti i file che hai salvato in una determinata cartella, scegli quello che vuoi stampare e lanci la stampa.
Se ti soddisfa come possibile soluzione possiamo approffondirla con del codice.
ciao
Andrea detto
OK, possiamo approfondire la soluzione con del codice.
Grazie.