BiZiMDiYaR
Gebruiker
- Lid geworden
- 31 mrt 2010
- Berichten
- 25
Goedemorgen,
Ik heb op de site van ronbruin een code gezien voor een stukje macro om e-mails vanuit Excel te kunnen versturen. De code die kopieert de eerste twee sheets en plakt deze aan een email... en verstuurt deze. Ik heb in het originele sheets, alleen wel alle marges ingesteld en ook dat de pagina liggend moest zijn etc... Dus dat alles passend is.
Maar als ik deze ga bijvoegen aan de email, dan krijgt deze de instellingen van een nieuwe pagina.. Hoe kan ik ervoor zorgen dat deze dezelfde pagina instellingen als de originele sheets.
Alvast bedankt.
p.s. misschien hier ergens.. ???
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
.Sheets(Array("Week", "Dag")).Copy
End With
Ik heb op de site van ronbruin een code gezien voor een stukje macro om e-mails vanuit Excel te kunnen versturen. De code die kopieert de eerste twee sheets en plakt deze aan een email... en verstuurt deze. Ik heb in het originele sheets, alleen wel alle marges ingesteld en ook dat de pagina liggend moest zijn etc... Dus dat alles passend is.
Maar als ik deze ga bijvoegen aan de email, dan krijgt deze de instellingen van een nieuwe pagina.. Hoe kan ik ervoor zorgen dat deze dezelfde pagina instellingen als de originele sheets.
Alvast bedankt.
p.s. misschien hier ergens.. ???
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
.Sheets(Array("Week", "Dag")).Copy
End With
