Wijzigen opmaak van een bestand

[linkav]

Ik wil bij het openen van een excel-bestand een aantal opmaak-instellingen toepassen, maar ik weet niet hoe.

In Sub Workbook_Open wil ik volgende zaken instellen:
* Instellen papierformaat: A4
* Instellen papierrichting: Landscape
* Instellen linkermarge: 1 cm
* Instellen rechtermarge: 1 cm
* Instellen bovenmarge: 1 cm
* Instellen ondermarge: 1 cm
* Instellen kolombreedtes
* Alle kolommen passend
* Titelrij = 4
* Scaling: x percentage

Kan iemand mij de code hiervoor bezorgen?

Gr,
Ariane

 

[snb]

Ja hoor: jouw vriend de macrorecorder van Excel.

 

[linkav]

Goede tip!!!

Merci he!

 

[linkav]

Zoals aangegeven heb ik een macro gebruikt om te weten hoe ik bepaalde pagina-eigenschappen kan zetten.

Nu heb ik het volgende probleem: vanuit een excel-file moet ik alle excel-bestanden uit een map openen en bepaalde pagina-eigenschappen gaan toepassen. Het doorlopen van een map en de excel-files openen lukt mij. Maar eens ik een bestand open heb en ik wil de pagina eigenschappen aanpassen wordt dit gedaan in het huidige bestand (=mijn code die loopt) en niet op het net geopende bestand. Na het aanpassen van de eigenschappen moet het bestand gesaved worden en verder gegaan worden met het volgende excel-bestand.

Hierbij de code, wil iemand hier even naar kijken aub.

Bedankt alvast!

'======================================================================

Sub Check_Map()
On Error GoTo err_Check_Map
Application.ScreenUpdating = True


tmpFileName = Dir("C:\Te_Bewerken\")

Do Until tmpFileName = ""
If Right(tmpFileName, 4) = ".xls" Then
DoSubEditReport
End If
tmpFileName = Dir
Loop

On Error GoTo 0
Exit Sub

err_Check_Map:
MsgBox "Form-Timer: (" & Err.Number & ") - " & Err.Description
Resume Next
End Sub

Sub DoSubEditReport()
On Error GoTo err_DoSubEditReport

Workbooks.Open Filename:=tmpMapToCheck & "\" & tmpFileName

Cells.Select
Cells.EntireColumn.AutoFit
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&C"
.CenterFooter = "&R"
.RightFooter = ""
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(0.5)
.BottomMargin = Application.CentimetersToPoints(0.5)
.HeaderMargin = Application.CentimetersToPoints(0.5)
.FooterMargin = Application.CentimetersToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 65
' .FitToPagesWide = 1
' .FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True

ActiveWorkbook.Save

Workbooks.Close

On Error GoTo 0
Exit Sub

err_DoSubEditReport:
MsgBox "DoSubEditReport: (" & Err.Number & ") - " & Err.Description
Resume Next
End Sub

 

[gonzo31]

Volgens mij moet je een regeltje toevoegen die aangeeft dat je net geopende werkboek ook het actieve werkboek wordt.

 

[linkav]

En welk regeltje moet dat dan wel zijn?

Graag hoor ik van je...