none
stampa unione access/word

    Discussione generale

  • Avevo iniziato un 3d sull'argomento QUI e come è descritto ho usato la routine di Maurizio Borrelli che riporto di seguito la quale su un computer con Windows 7 e office 2010 (computer dell'ufficio) funziona ma fino a questo punto, dopo di che si arresta ed esce nel punto che segue (avanzamento con f8):

    With Application.ActiveDocument
    .SaveAs2 s , wdFormatPDF, AddToRecentFiles:=False
     .Saved = True
     .Close
     End With
     

    quando, cioè, deve salvare il documento dopo le varie concatenazioni "s"

    questa è la routine del Borrelli:

    ' Modulo1 - Modulo
    '
    Option Explicit
    Public Sub Test()
    On Error GoTo ErrH
    Dim mm As Word.MailMerge
    Dim i
    dim s as string   
        Application.ScreenUpdating = False
       
        Set mm = ThisDocument.MailMerge
        With mm
          .Destination = wdSendToNewDocument
          With .DataSource
            For i = 1 To .RecordCount
              .FirstRecord = i
              .LastRecord = i
              mm.Execute
               s = "C:\users\mionome\desktop\unione\"     '<--------il percorso del file salvato
                s = s & "Nome documento ditta-id:"            '<------------- il nome del documento
                s = s & Format$(.DataFields(.FieldNames("IDCliente")).Value, "0")
                s = s & "-"
                s = s & "-Azienda:"
                s = s & .DataFields(.FieldNames("Nomecliente")).Value  '<--------------completa la denominazione del documento col nome del cliente
                With Application.ActiveDocument
                  .SaveAs s _
                        , wdFormatPDF _
                        , AddToRecentFiles:=False
                .Saved = True
                .Close
              End With
            Next
          End With
        End With
       
    ExitProc:
        Application.ScreenUpdating = True
        Set mm = Nothing
        Exit Sub
       
    ErrH:
        MsgBox Err.Description
        Resume ExitProc
       
    End Sub

    Con sistema operativo Windows 10 ed office 2016 questa routine non parte una msgbox mi avverte che manca l'oggetto richiesto.Quale sarebbe questo oggetto?

    In ultima analisi a me interessa dalla stampa unione stampare/salvare l'intero file word in tanti files pdf singoli e con la denominazione automatica presa dai campi della tabella di access o, evenualmente da quella salvata in Excel (nel mio caso IdCliente e NomeCliente).

    Mi hanno consigliato di rivolgere la richiesta qui.

    Ogni aiuto è gradito, grazie.


    domenica 24 giugno 2018 07:54