Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Mobile.de ofera imprumut de bani ...

problema test grila

Digi24 a disparut de pe TV Lg

Drept de proprietate intelectuala...
 Jante noi shitbox

Trinitas TV 4K

Dacia 1316 cu 6 usi ...

Frecventa modificata radio
 Un nou pericol pt batrani

Ar trebuii sa vindem imobiliarele...

Dupa renuntarea la aparat dentar

pelerinaj in Balcik
 Noul format Jpegli iși propu...

Dade, dade

Probleme accesare nr test telefon

Parola la lock screen
 

am nevoie de ajutor

- - - - -
  • Please log in to reply
1 reply to this topic

#1
bobo_clement

bobo_clement

    New Member

  • Grup: Members
  • Posts: 1
  • Înscris: 02.04.2005
Daca poate sa ma ajute cineva cu o macrocomanda care sa ma ajute sa inserez intr-un tabel cu informatii diverse un page breake la fiecare 5 randuri pls. Multumesc anticipat!

#2
maro158

maro158

    Member

  • Grup: Members
  • Posts: 269
  • Înscris: 01.10.2007

View Postbobo_clement, on Mar 9 2008, 03:23, said:

Daca poate sa ma ajute cineva cu o macrocomanda care sa ma ajute sa inserez intr-un tabel cu informatii diverse un page breake la fiecare 5 randuri pls. Multumesc anticipat!

Sper sa te pricepi cat de cat la VBA. Daca nu, nu-i bai, o sa inveti. Codul de mai jos face urmatoarele inainte ca Worksheet-ul actual sa fie trimis spre imprimanta:

1. Sterge orice HPageBreak existent
2. Introduce un HPageBreak la fiecare 5 randuri

 Option Explicit

 Private Sub Workbook_BeforePrint(Cancel As Boolean)
	Dim i As Integer
	Dim sht As Worksheet
	Dim rng As Range
	Dim cell As Range

	Set sht = ActiveSheet

	For i = sht.HPageBreaks.Count To 1 Step -1
		sht.HPageBreaks(i).Delete
	Next
	
	Set rng = sht.usedRange
	
	For i = 1 To rng.Rows.Count
		If i Mod 5 = 0 Then
		   Set cell = rng.Cells(i + 1, 1)
		   Activewindow.SelectedSheets.HPageBreaks.Add Before:=cell
		End If
	Next
 End Sub

Microsoft Excel are un help excelent. Nu strica sa arunci o privire asupra lui. Succes!

Edited by maro158, 10 March 2008 - 11:15.


Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate