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
 

Informazioni domanda


Ultimo aggiornamento febbraio 27, 2018 Visualizzazioni 238 Si applica a:
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

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.