Skrive ut et regneark med VBA

[gizmo45]

Hei,

 

Jeg driver med en oppgave på skolen ang. VBA sammen med Excel.

 

Så skal jeg gjerne kunne skrive ut et regneark ved å trykke på en selvlagd knapp og også kunne velge antall kopier i et tekstfelt.

 

Foreløpig har jeg kommet fram til følgende kode:

Worksheets("Utskrift").PrintOut

 

I dok. til PrintOut (Excel Help) ser det ut som at man kan angi antall kopier innen PrintOut(), så jeg prøvde følgende:

Worksheets("Utskrift").PrintOut (copies=txtCopies.Value)

 

Men det funker ikke, hvordan kan jeg gjøre dette? Som dere sikkert forstår er jeg en nybegynner på VB - men dette burde vel ikke være så vanskelig!?

[Rep]

Det enkleste tror jeg er å gjøre det slik:

 

On Error Resume Next

ActiveSheet.PrintOut , , txtCopies.Text

 

"On Error Resume Next" er med for at du ikke skal få feilmelding hvis brukeren avbryter utskriften.

[gizmo45]

Det enkleste tror jeg er å gjøre det slik:

 

On Error Resume Next

ActiveSheet.PrintOut , , txtCopies.Text

 

"On Error Resume Next" er med for at du ikke skal få feilmelding hvis brukeren avbryter utskriften.

 

 

Takk for svar! Det var akkurat dette jeg var ute etter...