Hozzászólások
-
SzerzőBejegyzés
-
Sziasztok! Sikerült megoldanom a problémát a következő makróval:
Sub Nyomtatas()
‘
‘ Nyomtatas Makró
‘‘
Range(„D4”).Select
Selection.Copy
Range(„C3”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=Range(„E4”).Value, Collate:=True, _
IgnorePrintAreas:=False
Range(„D5”).Select
Application.CutCopyMode = False
Selection.Copy
Range(„C3”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=Range(„E5”).Value, Collate:=True, _
IgnorePrintAreas:=False
Range(„D6”).Select
Application.CutCopyMode = False
Selection.Copy
Range(„C3”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=Range(„E6”).Value, Collate:=True, _
IgnorePrintAreas:=False
End SubA fenti makróban 3szor van kiadva a nyomtatás parancs de az eredetiben nagyjából 500szor kellene. A problémám az, hogy ha a cella értéke aminek az értéke adja a példányszámot (Copies:=Range(„E6”).Value) = 0-val akkor nem fut végig a makro. Valakinek van ötlete arra, hogy hogyan lehetne ezt kiküszöbölni?
Köszönöm a segítségeket! Végül is megoldódott a problémám, bár a feltett kérdésekre nem találtam megoldást, de más úton járva a várt eredmény meglett.
Kedves Delila!
Igen jól gondolod pontosan ezt szeretném, de nem találom a csatolt fájlt, el tudnád küldeni újra?
Kedves Titok!
Köszi a makrót! Kipróbáltam, de úgy látom, hogy minden üzlethez csak egy címkét nyomtat, igaz hogy valójában nem nyomtattam ki, csak lecsatlakoztam a nyomtatóról és kiadtam a parancsot. Csatolok egy képet amin láthatod mire gondolok.
Attachments:
You must be logged in to view attached files. -
SzerzőBejegyzés
