Fout 438

Status
Niet open voor verdere reacties.

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,
Onderstaande code geeft de foutmelding :
"Deze eigenschap of methode wordt niet ondersteund door dit project" , Fout 438
Ik werk met Office Professional 2019

Code:
With Sheets("Eindklassement")
  .PrintArea = Range("A" & 1 & ":Q" & Range("B1"))
  .PageSetup.Orientation = xlLandscape
  .PrintPreview
End With

Wat kan ik hier aan doen?

Vriendelijke groet , Jaap
 
Laatst bewerkt:
dit?

Code:
With Sheets("Eindklassement")
[COLOR="#FF0000"].PageSetup.[/COLOR]PrintArea = Range("A1[COLOR="#FF0000"]:Q" &[/COLOR] Range("B1"))
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
 
Laatst bewerkt:
Code:
With Sheets(1).PageSetup
   .PrintArea = Range("A1:Q1").Resize(Range("B2")).Address
   .Orientation = 2
   .Parent.PrintPreview
End With

Markeer 'Printarea', druk op F1 en lees wat je moet weten.
 
SjonR ,

Dat was het, moest natuurlijk PageSetup zijn
Stomme fout van me

snb,

Een mooie oplossing
Ik vind het mooi dat u er altijd een stukje lering bij geeft.
Weer wat van opgestoken
Beide heren , Dankjewel!!

Vriendelijke groet , Jaap
 
snb,

Zo'n vertrouwen in jouw oplossingen dat ik dacht dat het wel zou werken
Dus niet!

B1 = een variabele
De waarde die daar staat moet de rij worden van Q

Code:
 .PrintArea = Range("A1:Q1").Resize(Range("B1")).Addresse

Is dit nog op te lossen

Jaap
 
Code:
.PrintArea = Range("A1:Q" & Range("B1"))
En het is "Address" en niet "Addresse"
 
Laatst bewerkt:
Misschien ook wel
Code:
.PrintArea= .cells(1).currentregion.address
Het is alleen onduidelijk waar Range(B1) vandaan komt.

Volledige code of een voorbeeldbestand voorkomt speculaties.
 
Laatst bewerkt:
Alphamax,

Dat werkt goed!!
Dankjewel

VenA,

Op het blad "Eindklassement" staat in cel "B1" een waarde welke aangeeft hoeveel personen
er meededen met de wedstrijd.
Nu moet dat deel , die aantal rijen van het blad "Eindklassement" geprint worden welke gelijk is aan
het aantal personen die meededen , "B1" dus
 
SjonR--snb--VenA--Alphamax,

Dank zij jullie hulp ben ik tot onderstaande goed werkende code gekomen
allemaal bedankt voor de geboden hulp

Vriendelijke groet , Jaap

Code:
With Sheets("Eindklassement")
   .PageSetup.PrintArea = "A1:Q" & Range("B1").Value 
   .PageSetup.Orientation = xlLandscape
   .PrintPreview
 End With
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan