Buonasera
riprendo una discussione in cui mi ero intromessa in un altro topic viewtopic.php?f=26&t=101543 e vi chiedo di nuovo aiuto:
vorrei riuscire a stampare senza impazzire una lettera di sollecito di pagamento in calce alla quale riportare l'estratto conto con il suo totale
https://www.mediafire.com/?l4glhxh396ztgkw
come mi aveva scritto Anthony47, ho cercato di salvare nel modulo la macro da lui creata
La macro che si potrebbe usare e' questa:
Codice: Seleziona tutto
Sub mytest()
Dim ListC As String, myFilt As String
'
ListC = "Z" '<<<1 Una colonna LIBERA in cui sara' creato l' elenco dei nominativi
'
Sheets("Foglio1").Select
ActiveSheet.Range("$A:$A").AutoFilter Field:=1 ', Criteria1:="*"
'
'Scegli stampante:
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
Exit Sub
End If
'
'Crea elenco partite Iva
Range(ListC & ":" & ListC).ClearContents
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ListC & "1") _
, Unique:=True
'Crea elenco per ogni partita Iva
For I = 2 To Cells(Rows.Count, ListC).End(xlUp).Row
If Cells(I, ListC) <> "" Then
myFilt = Cells(I, ListC).Text
ActiveSheet.Range("$A:$A").AutoFilter Field:=1, Criteria1:=myFilt
Range("A1").Select
xxx = RangePublish33("A:J", myFilt)
End If
Next I
ActiveSheet.Range("$A:$A").AutoFilter Field:=1 ', Criteria1:="*"
End Sub
Function RangePublish33(ByVal PRan As String, ByVal PIva As String) As Variant
'
Dim DestSh As String, myCoda As String, myPIva As String
'
DestSh = "Lettera" '<<< Il nome del foglio in cui c' e' il testo della lettera
myCoda = "A30" '<<< La cella in foglio Lettera in cui si comincera' ad accodare
myPIva = "A1" '<<< La cella in foglio Lettera in cui si scrivera' la Partita Iva corrente
'
'Accoda righe e stampa
Sheets(DestSh).Range(myCoda).Resize(200, 20).Clear
Sheets(DestSh).Range(myPIva).Value = "'" & PIva
Application.Intersect(Columns(PRan), ActiveSheet.UsedRange).Copy _
Destination:=Sheets(DestSh).Range(myCoda)
'
Sheets(DestSh).PrintPreview '**1
'Sheets(DestSh).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '**2
'
Stop '!!! Vedi Testo
'
End Function
(scusate ma non so come si fa a inserire i moduli)
ma quando la lancio non mi si creano le lettere
a sbagliare sono io di sicuro ma non capisco dove, per favore mi aiutate??
ps. quando salvo il file in ".xlsm" e poi lo provo a riaprire mi dice che
dati.xlms contiene contenuto illegibile. recuperare il contenuto della cartella di lavoro? se la cartella di lavoro proviene da fonte attendibile scegliere si.... quando do ok mi dice che ha dovuto ripristinare delle righe
Parte ripristinata: Parte /xl/worksheets/sheet1.xml con errore XML. Errore di caricamento. Riga 2, colonna 160278.
Parte ripristinata: Parte /xl/worksheets/sheet3.xml con errore XML. Errore di caricamento. Riga 2, colonna 3763.
grazie per l'aiuto a tutti
Registrazione