ciao a tutti! è la prima volta che scrivo in questo forum...
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 di larghezza e
300 [fittizio] di 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!