Exportar para.doc

[Carcleo 4]

Ola pessoal.

Consegui, fazer e paginar um relatório com o PrintDocument.

 

Agora, estando no PrintPreviewDialogo, preciso acrecentar um botão que salva (exporta) todas as paginas do relatório (no caso de mais de uma pagina) para um arquivo .doc.

 

Mas não tenho a minima ídeia de como fazer isso!

[Carcleo 4]

Consegui o código abaixo, que abre um documento word modelo.doc, selciona tudo dele e salva em outro documento tambem .doc de nome modelo2.doc.

 

Mas, eu quero é pegar o conteudo que esta sendo mostrado no Relatório do PrintDocument (PrintPreviewDialog) e salva-lo em no document .DOC chamado modelo2.doc.

 

 

Como fazer isso?

 

 

Private Sub MeuClickExportar(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
		If e.ClickedItem.Text = "EXPORTAR .DOC" Then
			Dim word As Microsoft.Office.Interop.Word.Application
			word = CreateObject("Word.Application")
			'Abre o documento
			word.Documents.Open("D:\Modelo.doc")
			'não mostra o documento para usuario
			word.Visible = False
			'Seleciona o documento inteiro
			word.Documents("Modelo.doc").Select()
			'Salva o documento com um novo nome
			word.ActiveDocument.SaveAs("D:\Modelo2.doc")
			'fecha o word
			word.Quit()
			'Libera memoria
			word = Nothing
		End If
	End Sub

[quintelab 91]

O que esta no Relatório do PrintDocument não esta no seu banco de dados? Por que não pega essas informações e manda pro doc? Não sei se é possível copiar do relatório. E volto a avisar não crie floods para colocar seus tópicos em destaque.

 

Abraços...

[Carcleo 4]

é, esta no banco sim.

 

Gostei da ideia mas voce não teria um link que ensina como fazer isso?

[quintelab 91]

De uma olhada: http://www.macoratti.net/08/05/aspn_uwd.htm

 

Abraços...

[Carcleo 4]

Bem, não era bem aquilo que eu queria não.

 

Eu queria era tipo dar um CTR+A e um CTR+C no relatório do PrintPrewiewDialog e salvar em um arquivo do word.

 

E, por favor.

 

Obnservei agora agora que coloquei a pergunta no luigar errado.

 

Não é web não.

É winmdows application.

 

Joga pra la pra minm fazendo favor?

 

Muito obrigado!

[quintelab 91]

Movido Plataforma .NET » Web Applications http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Plataforma .NET » Windows Applications

 

Não vai ter nada que de um Control A, Control C. Terá que fazer como eu disse.

 

Abraços...

[Carcleo 4]

Aquele modelo do Link que voce postou não da exemplo de como pegar no banco e jogar para o word.

 

Por acaso, voce teria outro link para informar?

[Carcleo 4]

Oh turma, dessa forma deu certo mas, e agora?

 

Como faço para pegar o que esta no formulario e jogar para o word?

 

Lembrando que desse jeito ja exta criando o documento word com os dados que estão dentro do whit:

Private Sub MeuClickExportar(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
		If e.ClickedItem.Text = "EXPORTAR .DOC" Then
			Dim word As Microsoft.Office.Interop.Word.Application
			word = CreateObject("Word.Application")
			word.Documents.Add()
			word.Visible = True

			With word
				.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
				.Selection.Font.Size = 20
				.Selection.Font.Bold = True
				.Selection.TypeText(Text:="VISUAL BASIC - JCMSOFT")
				.Selection.TypeParagraph()
				.Selection.Font.Size = 15
				.Selection.TypeText(Text:="www.geocities.com/macoratti")
				.Selection.TypeParagraph()
				.Selection.TypeParagraph()
				.Selection.Font.Size = 10
				.Selection.Font.Italic = True
				.Selection.TypeText(Text:="Tudo para Visual Basic e Banco de dados")
			End With
		End If
	End Sub

[Carcleo 4]

Bom, será que alguem poderia me ajudar pelo menos nessa:

 

.Selection.TypeText(Text:="VISUAL BASIC - JCMSOFT"

 

Eu insiro um texto no documento word criado.

 

Agora. Como faço para inserir uma imagem?

 

 

Isso ja resolvbe o problema!

[quintelab 91]

De uma olhada e veja se o código funciona: http://www.experts-exchange.com/Programming/Q_22094284.html

 

Abraços...