[Excel][vba] Printscherm openen

[MyTi]

Hoe kan ik automatisch via een macro (vb) het printscherm openen wat je ook te zien krijgt bij het kiezen van Bestand - Afdrukken?

Ik ken de functies ThisWorkbook.Worksheets("bla").PrintPreview en ThisWorkbook.Worksheets("bla").PrintOut, maar verder kan ik geen print functie vinden. Is het mogelijk om betreffende printschem te openen vanuit een macro (vb)?

[Reptile209]

Volgens deze pagina kan het met onderstaand statement:

code:

Application.Dialogs(xlDialogPrint).Show

Uitgebreidere info vind je in deze tutorial voor allerlei common dialogs.

[ Voor 20% gewijzigd door Reptile209 op 02-01-2006 20:01 ]

[MyTi]

Bedankt dat was precies wat ik bedoelde..

Ik weet niet of ik deze vraag ook binnen dit topic kan stellen, maar is het mogelijk om te detecteren of het printscherm afgesloten is/wordt. Ik wil namelijk dat het werkboek helemaal gesloten wordt nadat het printscherm afgesloten wordt.

[MichielPH]

code:

' Enables error handling to catch cancel error
On Error Resume Next
' display the dialog box
CommonDialog1.ShowSave
If Err Then
    ' This code runs if the dialog was cancelled
    Msgbox "Dialog Cancelled"
    Exit Sub
End If

[MyTi]

Bedankt dat werkt!

Nu mijn laatste vraag.. Daarna ben ik echt klaar..
Is heb een werkboek wat ik als alleen-lezen bestand gebruik, er wordt dus niks in opgeslagen. (Dit forceer is zowiezo met Application.Saved=True) Nu wil ik via een knop het betreffende werkboek afsluiten en weer openen zodat het in orignele staat terug is. Er worden namelijk bij gebruik wel bepaalde gegevens gewijzigd/ingevoerd etc. Ik wil dit omdat ik dan niet via een uitgebreide vba functie hoef te zorgen dat alle werkbladen in originele staat terug zijn. Door het werkboek gewoon af te sluiten en weer te openen heb ik namelijk hetzelfde resultaat. Eigenlijk is het dus een soort van reset die ik wil uitvoeren. Is dit mogelijk?

Het is de bedoeling dat het werkboek echt compleet afgesloten en weer opgestart wordt.

[ Voor 6% gewijzigd door MyTi op 03-01-2006 16:20 ]

[onkl]

Gewoon het bestand openen toch?
In VBA:

code:

Workbooks.Open("Je bestandsnaam")

Excel zal dan wel gaan mekkeren ("Ding is al open, wijzigingen gaan verloren, etc."), maar dat kan je ondervangen door

code:

Application.DisplayAlerts = False
Workbooks.Open(("Je bestandsnaam")
Application.DisplayAlerts = True

(Ik weet eerlijk gezegd niet helemaal zeker of die laatste regel wordt uitgevoerd, het "uitvoerend" bestand wordt natuurlijk wel gesloten.)

[ Voor 6% gewijzigd door onkl op 03-01-2006 16:24 ]

[MyTi]

Dat had ik zelf eigenlijk ook al bedacht maar het probleem is dan dat de Workbook.Open sub niet (opnieuw) uitgevoerd wordt die een Userform moet laten zien. En aangezien alles erna niet uitgevoerd wordt kan ik daar ook niks mee..

Private Sub Workbook_Open()
UserForm.Show
End Sub

[ Voor 16% gewijzigd door MyTi op 04-01-2006 15:01 ]