copia foglio excel in una cartella creando un documento pronto per la stampa

Buongiorno, chiedo gentilmente aiuto al forum. Avrei la necessità tramite un bottone esistente in un form di selezionare il contenuto di un foglio excel denominato "consedomani" (i dati sono inseriti fino alla colonna "N" illimitati nelle righe) e copiarlo in una cartella esistente in "c:\stampaconsegna" creando un nuovo documento,  salvarlo e chiuderlo pronto per stamparlo in un secondo momento. Grazie in anticipo per il vostro contributo, Claudio
|
Risposta
Risposta

 Nell'esporre il quesito non ho spiegato il tipo del salvataggio come documento con estensione txt, oppure pdf  (è possibile?).
Altra informazione: è possibile il salvataggio orientando il foglio orizzontalmente?


Prova:

 

Public Sub m()

    Dim wk As Workbook
    Dim sPath As String
   
    Application.ScreenUpdating = False
    sPath = "C:\stampaconsegna\"
    ThisWorkbook.Worksheets("consedomani").Copy
   
    Set wk = ActiveWorkbook
   
    'On Error Resume Next
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPath & Format(Now, "yyyy-mm-dd") & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
       
    With Application
        .DisplayAlerts = False
        wk.Close
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
   
    Set wk = Nothing
   
End Sub

 

Fai sapere, grazie.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

 
 

Informazioni domanda


Ultimo aggiornamento 28 gennaio 2021 251 visualizzazioni Si applica a: