Access esporta tabella pivot in excel e imposta foglio con vba

mercoledì 24 giugno 2009 - 10.51

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

sigghy22 Profilo | Newbie

9 messaggi | Data Invio: mer 24 giu 2009 - 10:51

ciao a tutti!! spero di essere nella sezione corretta...io ho un database in access, in cui devo
avvalermi di vba per una form.... in quesa form ho un pulsante che fa esportare una query
(contenente una tabella pivot) su excel....purtroppo per le sue dimensioni bisogna fare alcune operazioni
affichè la stampa avvenga in modo soddisfacente (rotazione foglio, margini, adattamento..)....
il mio problema è che non riesco a far vistare, nel "imposta pagina", l'opzione "adatta a" (1 foglio larghezza e
300 [fittizio]altezza)........vi posto il codice:
--------------------------------
Private Sub Comando17_Click()
On Error GoTo Err_Comando17_Click
'esportazione
Dim stDocName As String
stDocName = "fattt"
Docmd.OpenQuery stDocName, acViewPivotTable, acEdit
Docmd.RunCommand (acCmdPivotTableExportToExcel)
Docmd.Close acQuery, "fattt", acSaveNo
'lavora su excel
Dim XlsApp As Object

Set modifica = CreateObject("Excel.Application")
modifica.Visible = True
With modifica
Rows("1:2").Select
Selection.Delete shift:=xlUp
Range("A:A").ColumnWidth = 25#
Range("B:B").ColumnWidth = 5.43
Range("C:C").ColumnWidth = 7.71
Range("A:Z").Worksheet.PageSetup.Orientation = xlLandscape
Range("A:Z").Worksheet.PageSetup.BottomMargin = 0
Range("A:Z").Worksheet.PageSetup.LeftMargin = 0
Range("A:Z").Worksheet.PageSetup.RightMargin = 0
Range("A:Z").Worksheet.PageSetup.TopMargin = 0
Range("A:Z").Worksheet.PageSetup.FitToPagesTall = 300
Range("A:Z").Worksheet.PageSetup.FitToPagesWide = 1
Rows("1:2").Worksheet.PageSetup.PrintTitleRows = "2:2"
End With

modifica.Quit
Set modifica = Nothing

Exit_Comando17_Click:
Exit Sub

Err_Comando17_Click:
MsgBox Err.Description
Resume Exit_Comando17_Click

End Sub
-----------------------
qualcuno mi può aiutare??
ciao!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !