Du må være registrert og logget inn for å kunne legge ut innlegg på freak.no
X
LOGG INN
... eller du kan registrere deg nå
Dette nettstedet er avhengig av annonseinntekter for å holde driften og videre utvikling igang. Vi liker ikke reklame heller, men alternativene er ikke mange. Vær snill å vurder å slå av annonseblokkering, eller å abonnere på en reklamefri utgave av nettstedet.
  8 2896
Hei!

Driver å skrive ut noen etiketter fra Excel som skal ha en teller. Og fant følgende kode.

Kode

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   .PrintOut 'Print the sheet
End With
Next copynumber
End Sub
Problemet er at jeg trenger to tellere ved siden av hverandre som teller likt siden en utskrift er to etiketter. Jeg trenger også at jeg kan få ut totalt fire etiketter på to utskrifter med samme tall. Noe dårlig formulert, men er det noen som kan bistå med det? Hadde vært supert!
Kan sikkert hjelpe deg, men skjønner ikke hva du er ute etter:-)

Skal du skrive ut 2 kopier?

Har du mer kode prosedyren skal inn i?

Om du legger ut malen din, kan jeg sikkert finne på noen forbedringer...
Sitat av hattfot Vis innlegg
Kan sikkert hjelpe deg, men skjønner ikke hva du er ute etter:-)

Skal du skrive ut 2 kopier?

Har du mer kode prosedyren skal inn i?

Om du legger ut malen din, kan jeg sikkert finne på noen forbedringer...
Vis hele sitatet...
Takk for at du vil hjelpe. Beklager at det var dårlig formulert, men jeg prøver engang til.

Se på bilde nedenfor. Vi skriver ut en etikett som er stanset på midten slik at vi kan dele den i to. Jeg ønsker at der det står 1 midt på begge sider skal telle likt oppover. Men problemet er at jeg trenger to utskrifter med like tellere. Altså totalt 2 etiketter med 4 identiske tellere. Ga det noe mer mening?

Tja, det første som slår meg er dette:


Kode

Sub PrintCopies_ActiveSheet() 

Dim CopiesCount As Long 
Dim copynumber As Long 

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1) 

For copynumber = 1 To CopiesCount 
With ActiveSheet 
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1. 
   .PrintOut 'Print the sheet 
   .PrintOut 'Print the sheet 
End With 
Next copynumber 
End Sub
Sitat av hattfot Vis innlegg
Tja, det første som slår meg er dette:


Kode

Sub PrintCopies_ActiveSheet() 

Dim CopiesCount As Long 
Dim copynumber As Long 

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1) 

For copynumber = 1 To CopiesCount 
With ActiveSheet 
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1. 
   .PrintOut 'Print the sheet 
   .PrintOut 'Print the sheet 
End With 
Next copynumber 
End Sub
Vis hele sitatet...
Var ikke verre nei. Takk det fungerte
Flott, det enkle er ofte det enkleste:-)

Ellers finner du mer dokumentasjon her: http://msdn.microsoft.com/en-us/libr...ffice.15).aspx

Dvs, tror jeg du kan gjøre slik også:

.PrintOut,,,2
Sist endret av hattfot; 25. september 2014 kl. 12:14.
▼ ... over et år senere ... ▼
Hei

Hvordan får man opp kodevinduet slik at man kan skrive kodene? Er på jakt etter samme løsning som er spurt om her

På forhånd takk!
ओम नमो नारायण
Dodecha's Avatar
DonorCrew
Mini8: Fil->Alternativer->Tilpass bånd
Huk av "Utvikler" eller "Developer"
Lukk
Nå har du en fane som heter "Utvikler" og du kan lage et nytt visual basic prosjekt
Når du har gjort dette er forøvrig hurtigknappen for å åpne kodevinduet ALT + F11.