Printer eigenschappen toevoegen

[Verwijderd lid 72049]

Excelkenners,

Ik zou zo graag dit scriptje willen onderbreken om de eigenschappen van de printer te kunnen instellen wie zou mij de in goede richting kunnen sturen.

Sub dagendatum()
Dim dt As Date
dt = DateSerial(Year(Date), 4, 12)
Do
Range("N2:O2") = dt
Sheets("Blad1").PrintOut
dt = dt + 1
Loop While dt <= DateSerial(Year(Date), 4, 20)
End Sub

Jan

 

[Wigi]

Het handigste is om dit met de macro recorder op te nemen, en de code dan tussen te voegen in de code die je nu al hebt. Vóór de printout.

 

[Verwijderd lid 72049]

Hoi Wigi,

Ga ik proberen mijn dank voor de tip

Jan

 

[Verwijderd lid 72049]

Wigi,

dit gaat lukken mijn dank, mag ik je meteen nog wat vragen.

ik kan mijn systeemdatum niet wijzigen dit is beveiligd door mijn werkgever nu wil ik
dit gebruiken niet met de systeemdatum maar een willekeurige datum bv 1 jan 2008
(ik hoop dat je me begrijpt)

dt = DateSerial(Year(Date), 4, 12)

Jan

 

[Wigi]

1 jan 2008 is:

dt = DateSerial(2008, 1, 1)

Of begrijp ik de vraag niet?

 

[Verwijderd lid 72049]

Wigi,

Ik schaam me dat ik het heb gevraagd maar dat wou ik graag.

Hartelijk dank voor je hulp en een prettig weekend.

Jan